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I.  INTRODUCTION 


MOONTRACK  is  a  program  in  the  Haystack  Univac  490  pointing  system  whose 
output  is  the  celestial  coordinates  of  a  point  on  the  Moon  at  a  given  time. 

The  program  computes  the  coordinates  of  the  center  of  the  Moon  by  4th  differ¬ 
ence  interpolation  in  the  tables  of  the  apparent  right  ascension,  declination, 
and  radius  vector  of  the  Moon  published  in  The  American  Ephemeris.  The  rates 
of  change  of  the  three  quantitites  are  computed  by  numerical  differentiation. 
If  the  "offset"  option  is  selected,  the  topocentric  celestial  coordinates  of 
a  particular  point  on  the  moon  are  computed  using  linear  interpolation  in 
tables  derived  from  values  of  mean  equator,  orbit,  longitude,  and  elongation 
given  in  the  American  Ephemeris  (P.  51). 

II.  INPUTS  TO  PROGRAM 

A.  Inputs  Furnished  by  Core  Memory 

The  program  uses  the  registers  listed  in  Table  I  for  input  information. 

The  year  and  day  are  used  to  select  the  appropriate  entries  from  the  ephemer¬ 
is.  The  coordinates  of  the  Moon  are  interpolated  for  the  time  which  is  the 
sum  of  the  times  in  CELTIME  and  DELTATEE. 

B.  Inputs  Furnished  by  Magnetic  Tape 

The  tape  format  of  the  Moon  Ephemeris,  which  has  been  edited  and  recorded 
on  tape  by  a  CDC  3300  program  described  in  Reference  (l),  is  shown  in  Fig.  1. 
Each  block  of  192  words  covers  a  period  of  one  day.  The  ephemeris  for  each 
day  requires  8  words  for  each  of  24  hours.  The  program  does  not  make  use  of 
the  hour- year-month- day  words  in  the  block.  The  tape  must  be  on  Unit  1 
(normally  Servo  B)  of  the  Univac  490. 

C.  Typewriter  Inputs 

After  the  ephemeris  values  for  the  center  of  the  moon  have  been  read  in, 
the  program  asks  whether  offsets  are  to  be  entered.  If  so,  the  observer  has 
the  option  of  typing  in  l)  selenographic  latitude  and  longitude  (in  degrees), 
2)  selenographic  direction  cosines,  3)  observer  coordinates  (direction 
cosines  centered  on  the  sub-radar  point),  or  4)  delay  (in  milliseconds)  and 
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angle  (degrees).  Figure  2  shows  typical  keyboard  sequences. 

III.  PROGRAM  OUTPUTS 

A.  Outputs  Left  in  Core  Memory 

The  apparent  celestial  coordinates  of  the  selected  point  on  the  Moon 
corresponding  to  the  time  in  the  register  CELTIME,  together  with  their 
numerical  derivatives,  are  stored  in  the  appropriate  registers,  as  illu¬ 
strated  in  Table  II.  If  the  offset  section  is  running,  two  registers  are 
set  to  allow  the  DOPPLER  program  to  compute  offset  doppler  from  leading  edge 
doppler*:  D  =  D.  x  DOPFACTOR$  +  M00ND0P2$.  The  offset  section  also 
sets  MOONSW$  to  1,  which  causes  some  modifications  to  the  coordinate  conver¬ 
sion  program. 


*Which  comes  from  a  special  ephemeris  tape  -  see  Reference  4.  Note  that  in 
"internal"  doppler  mode  the  offset  doppler  calculation  is  never  done. 
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TABLE  I 


CORE  MEMORY  INPUTS  TO  MOONTRACK  PROGRAM 


Register 

Contents  and  Scaling 

W(CELTIME) 

Days  B28 

W(DELTATEE) 

Days  B28 

U(YEARMONTH) 

Year  B15  (4  decimal  digits) 

L(YEARMONTH) 

Month  BO 

L(DAY) 

Day  of  Year  BO 

W( EQUATOR) 

Equatorial  radius  of  Earth  B17 

W(SIDERTIME) 

Right  ascension  of  Haystack  at 
C0NVERTIME-2S  (radians  B26) 

W(GEOCENLAT) 

Latitude  of  Haystack  (degrees  B20) 

* 

NOTE:  Notation  ’’BPS"  means  that 
the  binary  point  is  to  the  right 
of  bit  28. 
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14 


0 


3-62-3003 


l.  D. 

13d 

Conventional  Day  Number 

19 

14 

8 

4  0 

All  Zero 

Hour 

Year 

Month 

Day 

Right  Ascension 

B26 

Radians 

First  Difference  Right  Ascension 

B26 

Radians 

Declination 

B26 

Radians 

First  Difference  Declination 

B26 

Radians 

Radius  Vector 

B22 

Earth  Equatorial  Radii 

First  Difference  Radius  Vector 

B22 

Earth  Equatorial  Radii 

Fig.  1.  Magnetic  tape 

format 

for  moon  ephemeris. 
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TABLE  II 


CORE  MEMORY  OUTPUTS  OF  MOONTRACK  PROGRAM 


Register 

Contents  and  Scaling 

W(RA) 

Apparent  Right  Ascension  B27  in 
revolutions 

w(dec) 

Apparent  Declination  B27  in  revolutions 

W( RADIUS) 

Distance  from  center  of  Earth  to  center 
of  Moon,  B22  Earth  Equatorial  radii 

W(RADOT) 

Numerical  Derivative  of  Right  Ascen¬ 
sion  B37  radians/sec. 

W(DECDOT) 

Numerical  Derivative  of  Declination 

B37  radians/sec. 

w(radiusdot) 

Numerical  Derivative  of  Radius  Vector 
B24  nautical  miles/sec 

W ( MOONS W$) 

0  for  moon  center  run 

1  for  moon  offset  run 

W(DOPFACTOR$) 

Dimensionless 

W(M00ND0P2$) 

Cycles/sec  B8.  The  last  two  values  are 
used  for  offset  doppler  computations  - 
see  Ref.  (4). 
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RIGHT  ASC  1  H  1  AM  1  2  .4  0S 

DECLINATION  5D  49*22  .58" 

DAY  OF  YEAR  51 

UNIVERSAL  TIME  1  3H  45M  29.005 
DISTANCECE.R.)  60  .80  880  4 
OBJECT  MOON 

OFFSET  CY/N)  Y  * 

LAT+LONGU)  DIR.  COS(  2)  OBSERVER  C00RDC3)  DELAY  +ANGC  4 )  1* 

LAT=  4.294* 

LONG:  34.76  9* 

LAT+LONGC 1 )  DIR.  C0S(2)  OBSERVER  C00RDC3)  DELAY+ANGC  4)  2* 

X  C  S)  :  .568669* 

Y  ( S)  :  .0  74  367* 

LAT+LONGC  1  )  DIR.  C0SC2)  OBSERVER  C00RDC3)  DELAY+ANGC  4)  3* 

X  CO)  :  .5* 

YCO):  .5* 

LAT+LONGC 1)  DIR.  C0SC2)  OBSERVER  COORDC 3 )  DELAY+ANGC 4)  4* 

DELAY  CMS):  7.0* 

ANGLE:  1  80* 


Fig*  2.  MOONTRACK  initialization  sequences. 
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B.  Typewriter  Outputs 


During  initialization  the  MOONTRACK  program  will  type,  using  the  INTERCOM 
subroutine,  certain  information  concerning  the  Moon  (see  Figure  3)*  Items 
printed  are: 

1.  Julian  Day  corresponding  to  values  in  YEARMONTH,  DAY,  and  CELTIME 
(7  digits). 

2.  Apparent  Right  Ascension  of  the  Moon  (Hours,  Minutes,  Seconds  to 
hundredths ) . 

3*  Apparent  Declination  of  the  Moon  (Degrees,  Minutes,  Seconds  to 
hundredths ) . 

4.  Day  of  Year  corresponding  to  values  in  YEARMONTH  and  DAY  (up  to 
3  digits). 

5-  Universal  Time  for  which  the  coordinates  are  interpolated.  It 
is  the  time  in  CELTIME  at  initialization  (Hours,  Minutes,  Seconds  to 
hundredths) . 

6.  The  distance  between  the  centers  of  the  Earth  and  the  Moon  (Earth's 
Equatorial  radii  to  millionths). 

7.  The  words  "OBJECT  MOON". 

At  this  point  the  observer  may  select  offsets,  if  desired;  see  part 
II-C. 

If,  after  a  search  through  12  files  on  Unit  1  (or  the  finding  of  an  end 
of  tape  mark),  the  moon  ephemerides  are  not  found,  the  program  will  type 
"MOON  EPHEMERIS  FOR  X/Y  NOT  AMONG  FIRST  12  FILES"  and  will  exit  to  the  master 
control  program  error  return.  "X"  and  "Y"  indicate  the  current  month  and 
year,  respectively. 

If  there  is  a  tape  servo  malfunction  during  search,  the  program  will 
type  "IIIC  STATUS  SI  ZZ"  and  will  exit  to  the  master  control  program  error 
return.  The  two  digit  octal  number  "ZZ"  comes  from  the  tape  status  word  and 
indicates  the  error  condition. 

IV.  ASTRONOMICAL  SIGNIFICANCE 

The  apparent  right  ascension  and  declination  of  the  Moon  in  the  emphem- 
erides  are  referred  to  the  true  equinox  and  equator  of  date  and  are  corrected 
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for  planetary  aberration.  They  are  geocentric  apparent  quantities;  the 
parallax  correction  is  made  by  the  coordinate  conversion  program  (COCON)  in 
the  Haystack  system  unless  the  moon  offset  program  is  running.  (if  MOONSW$ 
is  1,  COCON  allows  MOONTRACK  to  do  the  parallax  correction  and  sets  the 
center  of  the  earth  at  the  radar  site  for  subsequent  calculations.) 

The  values  in  the  tables  are  computed  for  Ephemeris  Time  as  argument. 
The  equation 

ET  =  UT  +  AT 

is  used  to  convert  from  Universal  Time  to  Ephemeris  Time.  The  constant  , 
represented  by  the  number  in  the  register  DELTATEE,  is  approximately  39 
seconds. 

The  values  for  the  radius  vector  and  first  difference  of  the  radius 
vector  which  appear  on  the  ephemeris  tape  (Figure  l)  are  computed  from  the 
Moon's  horizontal  parallax  which  occurs  in  the  source  data.  The  formula 


sin  h 

is  used  by  the  tape  preparation  program  (Reference  l)  to  compute  the  distance 
D,  in  units  of  Earth's  equatorial  radii,  from  the  geocentric  equatorial 
horizontal  parallax  h.  The  register  EQUATOR  contains  a  number  which  repre¬ 
sents  the  Earth's  equatorial  radius  in  nautical  miles. 

V.  PROGRAM  DETAILS 

The  MOONTRACK  program  is  a  subroutine  of  the  Haystack  Univac  4 90  pointing 
program.  The  initialization  section  begins  at  MOONINIT,  the  working  section 
at  M00NC0NT.  There  are  several  closed  subroutines  within  the  moon  center 
part  of  MOONTRACK.  These  are:  DAYFIND,  STATUSCK,  INTERPOL,  LEFRNDOFF ,  and 
MOONTIME.  An  additional  29  closed  subroutines  perform  the  calculations  re¬ 
quired  for  pointing  at  an  offset  position  on  the  moon.  A  listing  of  the 
program  is  given  in  Appendix  IV. 

A.  Initialization 

The  program,  upon  initialization,  stores  a  Release  Interrupt  Lockout 
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instruction  in  the  tape  channel  internal  interrupt  register,  and  a  call  to 
the  STATUSCK  subroutine  in  the  external  interrupt  register.  The  area  in 
core  into  which  the  tape  data  will  be  read  is  cleared,  together  with  some 
additional  registers.  This  is  done  to  make  diagnosis  easier  in  case  of 
malfunction. 

The  daily  Moon  ephemeris  entries  are  serially  numbered  by  the  program 
which  generates  the  magnetic  tape  (Reference  l).  These  serial  numbers  are 
called  "Conventional  Day  Numbers"  (CDN).  An  arbitrary  decision  was  made  to 
produce  and  use  tapes  such  that  the  CDN  for  April  1963  is  zero.  The  tape 
search  process  looks  at  the  first  word  in  each  block;  therefore  the  MOONTRACK 
program  must  compute  the  CDN  of  the  block  containing  the  entry  for  the  re¬ 
quired  hour. 

Using  as  inputs  the  year,  day  of  year,  and  CELTIME,  the  program  computes 
the  Julian  Day  number  for  the  typewriter.  The  ephemerides  start  and  run  con¬ 
tinuously  from  25  April  1963,  which  has  a  Julian  Day  Number  of  2438144. 5; 
this  number  is  subtracted  from  the  computed  Julian  Day  number  and  appears  on 
tape  as  the  Conventional  Day  Number.  The  first  CDN  in  a  block  is  stored  in 
SAFE  and  TAPEBLOCK  and  the  Moon  identification  number  is  added  to  generate  a 
tape  search  comparison  word. 

Six  blocks  of  Moon  ephemerides  are  read  to  provide  sufficient  data  for 
4th  difference  Bessel  interpolation  for  a  four  day  period. 

If  the  six  block  search  and  read  operations  are  successful  control  is 
regained  at  NORMAL  and  the  tape  is  rewound  without  interrupt  or  interlock. 

The  MOONTIME  subroutine  is  entered  to  select  and  store  the  address  of 
the  ephemeris  entries  corresponding  to  the  hour  of  the  day  and  to  compute  the 
interpolation  argument  P.  The  register  TIME2  contains  a  number  representing 
the  integral  number  of  hours  in  the  sum  of  CELTIME  and  DELTATEE. 

Besselian  interpolation  of  right  ascension  is  done  by  the  INTERPOL  sub¬ 
routine  and  the  interpolated  result  is  converted  to  hours,  minutes,  and 
seconds  and  stored  for  type  out.  Declination  and  distance  are  then  inter¬ 
polated  and  stored  for  type  out.  The  other  quantities  which  are  to  be  typed 
out  by  INTERCOM  are  set  up.  Control  is  transferred  to  INTERCOM  7  times 
for  the  seven  line  type  out. 
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Subroutine  1  of  the  moon  offset  section  is  then  called.  This  asks,  via 

INTERCOM,  whether  the  operator  wants  to  type  in  offsets,  and  calls  one  of 

four  input  subroutines  (numbers  2  through  5) for  the  operator's  choice  of 

input  format.  The  input  routines  leave  either  selenographic  coordinates 

(X  Y  Z  )  or  observer  coordinates  (X  Y  Z  )  in  core  for  the  working 
S  j  S  j  S  O  j  O  j  o 

section  of  the  program. 

This  completes  operation  of  the  MOONTRACK  initialization  section. 

B.  Working  Section 

The  MOONTRACK  working  section  begins  at  MOONCONT.  Control  is  trans¬ 
ferred  to  the  subroutine  MOONTIME  which  selects  the  ephemeris  entry 
corresponding  to  the  current  hour,  stores  the  addresses  of  the  table 
entires,  and  computes  the  interpolation  argument  P  from  the  given  value  of 
CELTIME.  The  INTERPOL  subroutine  is  then  entered  three  times  for  the  inter¬ 
polation  of  right  ascension,  declination,  radius  and  their  time  rates.  All 
values  are  converted,  scaled  and  stored  properly  in  core  memory. 

If  C/S  MOONSW$  is  zero  at  this  point,  control  is  transferred  to  the 
master  control  program. 

If  C/S  MOONSW$  is  set  to  1,  subroutines  6  through  29  of  the  moon  offset 
section  are  executed  sequentially.  Numbers  6  through  2k  calculate  the  sel¬ 
enographic  coordinates  J(.'  and  b'  of  the  subradar  point,  the  apparent  position 
angle  C'  of  the  moon's  axis  of  rotation,  and  the  rates  of  change  of  these 
three  quantities.  25  through  29  calculate  offsets  in  right  ascension  and 
declination  and  add  them  to  RA  and  DEC  in  common  storage,  and  calculate  the 
doppler  offset  parameters  M00ND0P2$  and  DOPFACTOR$. 

The  equations  used  were  derived  by  Thomas  Thompson  from  references  2 
(pp.  60-62)  and  5(pp.  63,  76-77)* 

C.  Subroutines  -  Moon  Center  Section 

The  initialization  section  of  the  MOONTRACK  program  makes  use  of  the 
INTERPOL,  DAYFIND,  STATUSCK,  LEFRNDOFF,  and  MOONTIME  subroutines.  The  work¬ 
ing  section  uses  all  except  STATUSCK. 
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1.  INTERPOL 


The  MOONTRACK  interpolation  subroutine  uses  Bessel's  interpolation  for¬ 
mula  for  (Reference  3)  4th  difference  interpolation  of  the  Moon's  ephemeris. 

The  formula  is 

fp  =  fo  +  P6fl/2  +  [&2fo  +  ^l1 

+  (f-2)  6\) 

The  quantities  in  the  formula  are  associated  with  computer  registers  as 
follows : 

a.  The  address  of  f  is  in  index  register  4. 

o 

b.  The  interpolation  argument  P  is  in  register  P. 

c.  5f^g  is  in  register  GAMMA. 

d.  P(P-l)  is  in  register  PSQMP* 

e.  g^f  +  g£f^  is  in  register  DMINB. 

f.  P(P-l)  is  in  register  PSQMP6. 

6 

g.  b^f-jyg  is  in  register  DMIN2CPLB. 

,4  4  x 

h.  ( &  f  q  +  5  f^)  is  in  register  EP2BM2DMA. 

i.  fp  is  in  the  A  register  at  the  finish. 

The  subroutine  also  performs  numerical  differentiation  using  the  follow¬ 
ing  formula  (Reference  3): 


W'p  -  *1/2  ♦t1  + 


3P  -  3P  +  1/2  .3, 

6  8  fl/2 


At  the  completion  of  the  subroutine,  hf'  is  stored  in  the  register 


NUMDERIV. 
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When  the  subroutine  is  entered,  Index  Register  4  contains  the  address  of 
fQ  and  the  register  SETINTAD  contains  the  address  of  6f of  the  quantity 
to  be  interpolated.  Index  register  3  is  used  to  acquire  the  other  two  first 
difference  registers. 

2.  DAYFIND 

The  DAYFIND  subroutine  computes  the  Julian  Day  number  and  CDN  correspond¬ 
ing  to  the  current  day. 

3.  STATUSCK 

The  STATUSCK  subroutine  is  entered  from  the  external  interrupt  register 
associated  with  the  tape  channel  when  the  interrupt  occurs.  Examination  of 
the  status  code  generates  four  possible  outcomes: 

a.  If  the  code  indicates  a  normal  completion,  control  is  returned 
to  the  program  at  the  interrupted  point. 

b.  If  the  code  indicates  that  an  end  of  tape  mark  was  sensed, 
the  tape  is  rewound  and  a  message  indicating  failure  to  find  the  ephemeris 
is  printed  by  the  typewriter.  The  message  is  described  in  Section  III  B. 
Control  is  passed  to  the  error  return  of  the  master  control  program. 

c.  If  the  code  indicates  that  an  end  of  file  mark  was  sensed, 
the  register  IMPERIAL  is  indexed  and  tested  for  the  value  12.  When  less 
than  12  an  end  of  tape  condition  is  assumed  and  the  action  is  as  described 
in  (b)  above. 

d.  If  the  code  indicates  anything  but  end  of  file,  end  of  tape, 
or  normal  completion,  a  tape  error  has  occurred.  The  message  described  in 
Section  III  B,  indicating  the  type  of  error,  is  printed  by  the  typewriter  and 
control  is  passed  to  the  error  return  of  the  master  control  program. 

4.  LEFRNDOFF 

The  LEFRNDOFF  subroutine  left  shifts  the  AQ  register  the  number  of  places 
indicated  by  the  contents  of  index  register  5  and  rounds  the  A  register. 

5.  MOONTIME 

The  MOONTIME  subroutine  computes  the  integral  value  of  the  current 
ephemeris  hour  and  stores  the  addresses  of  the  quantities  to  be  interpolated. 
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It  computes  the  value  of  the  interpolation  argument  P. 

D.  Subroutines  -  Moon  Offset  Section 

The  following  equations  were  used  in  the  offset  option  section  of  the 
MOONTRACK  program.  The  original  MOONTRACK  was  not  altered  but  augmented  to 
accept  additional  input  parameters  and  result  in  additional  output  para¬ 
meters. 

The  additional  subprograms  or  sections  are  numbered  1  through  29.  The 
first  five  of  these  are  initialization  and  the  remaining  are  executed  se¬ 
quentially  in  the  working  section. 

Appendix  I  is  a  list  of  internally  stored  constants  and  conversion  fac¬ 
tors. 

Parameters  concerning  the  offset  are  entered  via  the  console  during 
initialization.  Additional  ephemeris  parameters  have  not  been  added  to  the 
EPHEMERIS  tape  but  instead  are  located  at  the  end  of  the  program  in  four 
tables.  The  format  of  these  tables,  the  interpolation  procedure,  and  the 
Fortran  program  for  generating  them  are  given  in  Appendix  III. 

All  other  additional  parameters  are  taken  from  COMMON  storage  or  from 
the  original  moontrack  program. 

The  labels  used  by  the  moon  offset  subroutines  are  defined  in  Appendix 
II  and  their  scalings  are  given. 

INITIALIZATION 

Subprograms  1,  2,  3 ,  4,  and  5  are  independent  subroutines. 

(1)  MXINIT 

Via  the  console  the  following  input  is  accepted: 

OFFSET  (Y  or  N) 

if  Y  LAT/LONG  (1),  DIR-COSINE  (2), 

OBSERVER-COORD  (3),  DELAY-ANG  (4) 
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(2)  MXINPOSA 

Called  if  IAT/LONG  was  selected.  Accepts  selenographic  latitude  (p) 
and  longitude  (X)  as  input  via  the  console. 

P  = 

(degrees)  -90°  <  p  <  90° 


X  = 

(degrees),  -180^  <  X  <  l8o° 


It  then  determines 

the 

values 

X 

s 

=  COS 

P 

sin  X 

Y 

=  sin 

P 

s 

Z 

<2 

=  COS 

P 

cos  X 

(3)  MXINPOSB 


Called  if  DIR-COSINE  was  selected.  Accepts  the  selenographic  direction 
cosines  (£,ti)  as  input 

X 

s 

(-1  <X  <  1) 


(-1  <  Y  <  1) 
'  s  ' 


Then  finds  the  value 

Z  =  [1  -  X  2 

s  s 


Ys2] 


1/2 


(4)  MXINPOSC 

This  is  the  observer  coordinate  option,  and  accepts 


X 

o 

Y 

o 


(-1.0  <  X  <  1.0) 
'  o 

(-1.0  <  Y  <  1.0) 
'  o  ' 
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to  find 


1/2 


Z  =  (1  -  X  2  -  Y  2) 

o  o  o 

(5)  MXINPOSD 


This  accepts  the  position  as  given  by  a  delay  and  angle  from  the  axis 


of  rotation. 

DELAY 

=  (milliseconds,  0  <  DELAY  <12.0) 

ANG 

=  (degrees,  -360°  <  ANG  <3^0°) 

The  following  is  then  calculated. 


Z 

o 

1  -  DELAY/11.595  +  a[l  -  1/2  (DELAY/11.595)] 

1 

r  = 

o 

d-zo2)2 

X  = 
o 

rQ  cos  (90°  -  ANG) 

Y  = 
o 

ro  sin  (90°  -  ANG) 

where 

a  = 

k. 52139  x  10~3 

(6)  MXLHA 


LHA 

o 

=  LST  -  a 
o 

a(Ufto)/at  -  -  iao/it 


where 

a 

o 

right  ascension 

LST  = 

local  sidereal  time 

0)  = 

€ 

7.292116x10  ^  rad/sec. 

(7)  MXRO 


cos  z  =  sin  <t>  sin  5  +  cos  <t>  cos  8  cos  LHA 

o  o  o 


where 


<t>  =  geocentric  latitude  of  site 


8  =  declination  of  moon 

o 


RT  = 

[1-2  (p/D  )  cos  z 

R 

D  RT 

o 

o 

DELAY 

=  2  Ro/c 

v2  n  2 


where 

l/c  =  l/speed  of  light  =  .02127558  sec/e. r. 

p  =  geocentric  radius  of  site  in  E.R. 

D  =  center  of  earth  to  center  of  moon  distance 
in  E.R. ,  from  ephemeris. 

(8)  MXRODT 

dfcos  z  )/dt  =  (sin  <t>  cos  8  -  cos  <t>  sin  8  cos  LHA)dS 

o'  o  o  c 

-(cos  <t>  cos  8  sin  LHA)  d(LHA)/dt 


i/dt 


dD 


d(cos  z  ) 


aEo/dt  =  If  [(l-(p/Do)  cos  -£  ■  pl  at  °  ] 


where 

Pl  =  p  in  n.m  =  3 • 438755435xl03 


(9)  MXDOP 

DOPD 


2f 


dR 

_ c 

dt 


[1 


dR 

_ o 

dt 
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(10)  MXA 


A 

dA 

dt 


(11)  MXB 


-cos  5  sin  LHA 
o 

d5 

-sin  5  sin  LHA  ~  +  cos  5  cos  LHA 
o  dt  o 


d(LHA) 

dt 


B 

dB 

dt 


(12)  MXC 


cos  6  cos  LHA  -  (p/D  )  cos  4> 
o  '  o 

-sin  5  cos  LHA  -rr^  -cos  5  sin  LHA 

o  dt  o  dt 

2  dDo 

+(p/D0  )  cos  »  55* 


C  =  sin  5  ,  —  (p/D  )  sin  <t> 
o  '  o 


dC 

dt 


d5  ?  dD 

cos  5  tt—  +  (p/D  )  sin  <J> 

o  dt  '  o  ’  dt 


(13)  MXDELP 


sin  5  = 


CD 

_ c 

R 


S'  =  sin  ^  (sin  5') 


calculates  cos  5' 


(l4)  MXALF 

AB 


D 

o 


cos  &' 


sin  LHA'  =  A/AB 

LHA'  =  sin"^  (sin  LHA') 


I  LST  -  LHA'  if  difference  is  positive. 

|  LST  -  LHA'  +  2jt  if  difference  is  negative. 
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MXDECPDT 


(15) 


AB  = 


i 

2  2  2 
[kd  +  if] 


D  cos  5' 
o _ 

R 


d(AB) 

dt 


A  dA  B  dB 


dt 


dt 


AB 


Sr  ■  <ABf  -  0  arV<*„2/0 


(1 6)  MXAPDT 


da' 

~dT 


ue“ 


rx.  dA  .  dB, 
[B  dt  •  A  dt] 


AB 


(17)  MXA1 


AA 

dAA 

dt 


-cos  5'  cos  (a'  -  fi') 


=  sin 


in  5'  cos  (a'  -  fl')  4r~  +  cos  S'  sin  (a' 

dt 


(l8)  MXB1 


BB  =  -cos  5'  cos  i  sin  (a'  -  fl')  -sin  S'  sin  i 


=  [sin  5'  cos  i  sin  (a'  -  fi')  -cos  5'  sin  i] 
dt  au 

dct / 

-cos  8'  cos  i  cos  (a'  -  fl')  ^jr~ 


(19)  MXC1 


CC  =  cos  S'sin  i  sin  (a'  -  Si')  -  sin  8'  cos  i 


d(CC) 

dt 


=  [-  sin  8'  sin  i  sin  (a'  -  ft')  -  cos  8'  cos  i] 


(20)  MXSINBP 

sin  b'  =  CC 

b '  =  sin"1  (sin  b ') 

calculates  cos  b' 

(21)  MXSINLP 

*'  =  sin_1  &  b-  (<  "  +  a) 

calculates  sin  cos  l' 

(22)  MXSINCP 

sin  C'  =  -  sin  i  cos  (a'  -  fi')/cos  b' 

C '  =  sin”1  (sin  C ') 

calculates  cos  C' 


(23)  MXBPDT 


db/ 

dt 


=  (f^/cos  b' 


(24)  MXLPDT 


dr; 

dt 


[A^iM  .  b3M1]/=0s2  v 

L  dt  dt  J/ 


dt 


(< 


(25)  MXFCL 


u>  =  db  '/dt 

X  ' 

a>  =  -cos  b'  di'/dt 

y 

JL 

2  2  2 

0)  =  [(a)  +  CO  1 

a  x  •  y  J 

FCL  =  -2  f  b  u  [1  -  -  d  R  /dt], 

c  a  c  o 


where  b  =  lunar  radius  in  n.m. 


-  n  +  a) 
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(26)  MXDA 


sin  da  =  w  / co 

-vr'  • 


cos  da  =  w/u 
T  a 


(27)*  MXXYZ  (If  input  was  selenographic  coords) 


X  =  X  cos  Z'  -  Z  sin  Z' 
os  s 

Y  =  -  X  sin  Z'  sin  b'  +  Y  cos  b'  -  Z  cos  Z'  sin  b' 

os  s  s 


Z 

o 

(28)  MXDELALF 

S 

£Ct 

AS 

(29)  MXDPDOP 

HTX 

D 

P 

D0P1 

D0P2 

DOPPLER 


X  sin  Z'  cos  b'  +  Y  sin  b'  +  Z  cos  Z'  cos  b' 
s  x  s 

b/RQ>  b  =  lunar  radius 

-  [X  cos  C'  -  Y  sin  C']  S/cos  (b7) 

o  o 

[Y  cos  C'  +  X  sin  C'l  S 
o  o  J 

i 

[1  -  2  Z  S  +  S2]2 
o  J 

DELAY  .  RTX 

[1  -  ZqS]  dopp/rtx 

-  X^FCL/RTX  =  C/S  M00ND0P2$,  Hz  B8. 

D0P1  +  D0P2 

X  cos  da  -Y  sin  da 
o  o 


a  =  a'  +  £& 

P 

5  =  S'  +  A5 

P 


*Equ.  (52),  pu  77  of  Reference  5* 
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(29)  MXDPDOP  (Continued 


R  =  R  *  RTX 
P  o 


dR  /dt  =  [(1  -  Z  S)  dR  ,dt  +  (^  b  X  ]/RTX 

P  O  O  /  u. 


C/S  DOPFACTOR$ 


DOPl/DOPP  =  [1  -  ZqS]/RTX 
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E.  Utility  Subroutines  -  Moon  Offset  Section 


1.  ROUND  Rounds 

2.  SINX  (COSX)  In:  A 

Q, 

Out:  A 

3.  SQRT  In:  A 

Out:  A 


value  in  AQ  to  A 

=  *  radians 

=  B  (binary  point) 

=  sin  (cos)  *  B28 

=  N  (binary  point  at  2M ,  where 

M  is  an  integer) 

=  n/n  (binary  point  at  M  +  14) 


4.  SOVERFLCW  General  error  routine - prints  the  error 

address  on  the  high  speed  printer,  sets 


A  to  zero,  and  exits. 

5. 

ASINX  (ACOSX) 

In:  A 

=  sin  (cos)  * 

Q 

=  B  (binary  point) 

Out:  A 

=  *  B27  radians 

6. 

SADD  (SSUB) 

In:  A 

=  X 

Q 

=  Y 

Output : 

A  =  X  ,  Y 

This  routine  has  an  error  return  to  the  calling 
address  +  1,  normal  return  to  calling  address 
+  2. 
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Quan. 

Label 

1/c 

MKQCCER 

l/c 

MKQRCNM 

b 

MKQBER 

b 

MKQBNM 

- 

MKQ11 

- 

MKHLF 

- 

MKQNMPER 

- 

MKQERPNM 

- 

MKRADDEG 

- 

MKONE28 

- 

MKQR11 

t 

MKQRHO 

a 

MKQALF 

t 

MKQRO 

0) 

e 

MKQWE 

f 

c 

MKQEC 

Value 

.02127558 

6. 1775959x10“ 6 
.2724876721 
938.4449184 
11-595 
0.500 

3.4439903XIO3 

2.903608566x10' 

.017453295 

1.000 

. 08624407 
•99848 

4.52139xl0"3 
3.4387554xio3 
7. 292116x10' 5 

4.787638x10^ 
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CONSTANTS 

Unit 

B 

Description 

sec/e. r. 

29 

reciprocal  of  speed  of  light 

sec/n.nu 

37 

11  11  11  n  n 

e.  r. 

29 

lunar  radius 

n.m. 

19 

It  II 

ms 

25 

center-to-limb  time  delay 

- 

29 

-  -  -  - 

- 

27 

conversion  factor  n.m./e.r. 

- 

4o 

e. r./n.m. 

- 

29 

rad. /deg. 

- 

28 

-  -  -  - 

l/ms 

29 

1/11.595 

e.  r. 

29 

geocentric  radius  of  site 

- 

29 

n.m. 

17 

geocentric  radius  of  site 

rad/ sec 

42 

ue  angular  velocity  of  earth 

cyc/n.m. 

13 

frequency  of  transmitter  /c 

Constants  and  Conversion  Factors 
(moon  offset  section) 


CONSTANTS  &  CONVERSION  FACTORS 


Label 

Value 

B 

REVS RADIAN 

revolutions / radians 

31 

HALFDAY 

1/2 

28 

HOUR 

days/hour 

28 

SRAD 

seconds / radian 

15 

HRAD 

radians/hour 

28 

MINSRAD 

radians/minute 

36 

HDAY 

days /hour 

32 

MDAY 

days/min 

39 

SDAY 

seconds/day 

12 

SECS RAD 

radians / second 

42 

SARAD 

seconds/radian 

RHRSEC 

hours/sec 

4o 

TWOPIE 

2jt 

26 

THIRD 

1/3 

28 

SIXTH 

1/6 

28 
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APPENDIX  II 


LABELS ,  Definitions ,  &  Scaling 

(moon  offset  section) 


OUTPUT 


Routine 

Label 

Description 

Unit 

B 

1 

MOONSW$* 

0  =  no  offset 

1  =  offset 

0 

MKPOSSW* 

0  =  selenographic  position 

0 

B,X 

1  =  selenographic  position 

2  =  observer  coordinates 

3  =  delay  &  axis  of  rotation 

2 

MKINBETA 

input  *P 

deg. 

20 

MK INLAMBDA 

input  *X 

deg. 

20 

MKBETA 

input  *p 

rad. 

27 

MKLAMBDA 

input  *X 

rad. 

27 

MKSINB 

sin  P 

- 

28 

MKCOSB 

eos  P 

- 

28 

MKSINL 

sin  X 

- 

28 

MKCOSL 

cos  X 

- 

28 

MKXS* 

X 

s 

- 

28 

MKYS* 

Y 

s 

- 

28 

MKZS* 

zs 

- 

28 

3 

MKXS2 

X  2 

S 

- 

28 

MKYS2 

Y  2 
s 

- 

28 

MKZS2 

Z  2 
s 

- 

28 

MKZS* 

Z 

s 

- 

28 

k 

MKX02 

X 

o 

(V) 

- 

28 

MKY02 

o 

ro 

- 

28 

MKZ02 

n 

o 

l\) 

- 

28 

MKZO* 

Z 

o 

- 

28 

*Indicate 

final  output 

of  routine 

25 


Routine 

Label 

Description 

Unit 

B 

5 

MKDANG 

it/2  -  input  * 

rad 

27 

MKSINDA 

sin  (jt/2  -  *) 

- 

28 

MKCOSDA 

cos  (jt/2  -  *) 

- 

28 

MKDKK2 

D/11.595 

- 

28 

MKT1 

a[l  -  1/2  (D/ll. 595)] 

- 

28 

MKT2 

1  -  d/11.595 

- 

28 

MKZO* 

Z 

o 

28 

MKZ02 

Z  2 
o 

- 

28 

MKZR02 

1  -  Z 

o 

- 

28 

MKZRO 

(1-Zo)^ 

_ 

28 

MKXO* 

X 

o 

- 

28 

MKYO* 

Y 

o 

- 

28 

6 

MKLHA* 

lha  (geocentric) 

rad 

26 

MKLHADT* 

d  (lha) /at 

rad/sec 

42 

7 

MKGEOLAT 

0c 

rad 

26 

MKSINGLAT 

sin  0c 

- 

28 

MKCOSGLAT 

cos  0c 

- 

28 

MKSINDEC 

sin  5 

o 

- 

28 

MKCOSDEC 

cos  5 

o 

- 

28 

MKCOSLHA 

cos  (lha) 

- 

28 

MKSINPHID 

sin  0  sin  5 
rc  0 

- 

28 

MKCOSPHID 

cos  0  cos  5 

- 

28 

c  0 

MKCOSZO 

cos  zo 

- 

28 

MK4 

«/Do 

- 

33 

MKRDHODCOS 

2  £/Do  cos  z 

- 

29 

MKU2 

(5/Do) 

- 

28 

MKRT2 

(Ro/Dof 

- 

28 

MKR0* 

Ro 

e .  r. 

23 

MKDELAY* 

aelay 

sec. 

27 

MKRT 

(Ro/Do) 

- 

28 

8 

MKCOSDPHI 

sin  0  cos  5o 

_ 

28 

MKSINDPHI 

cos  0  cos  (lha)  sin  &o 

- 

28 

MKT1 

rad/sec 

42 

MK2 

sin  (lha)  cos 

- 

42 

MKDDTCOS* 

a(cos  z)/at 

rad/ sec 

42 

2  6 


Routine 

Label 

Description 

Unit 

B 

8  (cont'd) 

MKT3 

(1-MK4  cos  z0)dRQ/dt 

n-m. /sec 

MKT4 

2p  d  (cos  z  )/dt 
o  o' 

- 

29 

MKT  5 

l/MKRT 

- 

28 

MKT7 

MKRODT* 

MKT5(MKT3  +  MKT4) 

n.m./sec 

29 

9 

MKT1 

2  f^dRo/dt 

eye /sec 

12 

MK20 

l/c  dRo/dt 

it 

37 

MKT3 

MK20  «  MKT1 

n 

12 

MKDOPP* 

Doppler:  MKT3  -  MKT1 

tt 

12 

10 

MK1 

cos  &  cos  (lha) 

- 

28 

MKT2 

sin  &  sin  (lha) 

- 

28 

MKT4 

MKT2  dS/dt 

rad/ sec 

42 

MKT3 

MK1  d(lha)/dt 

tt 

42 

MKCA* 

A 

rad 

28 

MKCADT* 

dA/dt 

rad/sec 

42 

11 

MK3 

sin  &  cos  (lha) 

- 

28 

MK5 

MK4  cos  0 

- 

33 

MKCB* 

B 

- 

28 

MKT1 

MK3  db/dt 

rad/sec 

42 

MKT2 

MK2  d(lha)/dt 

tt 

42 

MKT3 

MK5/Dq  d  DQ/dt 

tt 

42 

MKCBDT* 

dB/dt 

tt 

42 

12 

mk6 

KU  sin  0c 

33 

MKCC* 

C 

28 

MKT1 

cos  &  db  /dt 

0  o 

rad/sec 

42 

MKT2 

k6/Dq  dDQ/dt 

tt 

42 

MKCCDT* 

dC/dt 

tt 

42 

27 


Routine 

Label 

Description 

Unit 

B 

13 

MKSINDP 

sin  S' 

- 

28 

MKDP* 

b' 

rad 

26 

MKCOSDP 

cos  &' 

- 

28 

14 

MKAB 

AB 

- 

28 

MKAB2 

(AB)2 

- 

28 

MKSINLHAP 

sin  (lha') 

- 

28 

MKLHAP* 

lha' 

rad 

26 

MKALFP* 

a' 

rad 

26 

15 

MKT1 

AdA/dt 

rad/sec 

42 

MKT2 

BdB/dt 

n 

ft 

MKT3 

T1  &  T2 

rf 

ft 

MKABDT 

d(AB)/dt 

it 

ft 

MKT4 

AB  d  C/dt 

tr 

tt 

MKT5 

C  d(AB)/dt 

Tt 

ft 

mkt6 

T4-T5 

fl 

tt 

MKDPDT* 

d& ' / dt 

n 

tt 

16 

MKT1 

BdA/dt 

rad/sec 

42 

MKT2 

AdB/dt 

tt 

ft 

MKT3 

T1-T2 

tt 

ft 

MKT4 

T3/AB2 

tt 

ft 

MKAPDT* 

da' /at 

tt 

ft 

17 

MK7 

K7  =  a'  -  a' 

rad 

26 

mk8 

k8  =  cos  (a'  -  n') 

- 

28 

MK9 

K9  =  sin  (a'  -  si') 

- 

ft 

MK10 

K10  =  cos  S'  cos  (a'  - 

n') 

- 

ft 

MK11 

Kll  =  cos  S'  cos  (a'  - 

n'2 

- 

tt 

MK12 

K12  =  sin  S'  cos  (a'  - 

n') 

- 

tt 

MK13 

K13  =  sin  5'  sin  (a'  - 

a') 

- 

ft 

MKT1 

Kll  da'/dt 

rad/sec 

42 

28 


Routine 


17  (con'd) 


18 


19 


20 


Label 

Description 

Unit 

B 

MKT2 

K12  d&'/dt 

rad/sec 

42 

MKCA1* 

-K10 

- 

28 

MKCA1DT* 

K12  dS'/dt  +  Kll  da '/at 

rad/sec 

42 

MKT1 

Kll  cos  i 

- 

28 

MKT2 

sin  &'  sin  i 

If 

II 

MKCB1* 

B' 

II 

II 

MKT3 

cos  5'  sin  i 

ll 

II 

MKT4 

K13  cos  i 

II 

If 

MKT7 

T4-T3 

II 

II 

MKT5 

T7  dB'/dt 

rad/sec 

42 

MKT8 

K10  cos  i 

- 

28 

mkt6 

T8  da'/dt 

rad/sec 

42 

MKCB1DT 

dB'/dt 

H 

II 

MK14 

Kll  sin  i 

_ 

28 

MK15 

sin  6'  cos  i 

- 

If 

MKl6 

cos  5'  cos  i 

- 

II 

MK17 

K10  sin  i 

- 

*1 

MK18 

K13  sin  i 

- 

II 

MKCC1* 

Kl4  -  K15 

- 

II 

MKT1 

K17  da'/dt 

rad/ sec 

42 

MKT3 

Kl6  +  Kl8 

- 

28 

MKT2 

T3  d&'/dt 

rad/sec 

42 

MKCC1DT 

dC '/dt 

H 

II 

MKSINBP 

sin  b ' 

- 

28 

MKBP* 

b' 

rad 

27 

MKCOSBP 

cos  b ' 

_ 

28 

29 


Routine 

Label 

Description 

Unit 

B 

21 

MKT1 

B'/cos  b' 

- 

28 

MKT2 

arc  sin  (B'/cos  b') 

rad 

11 

MKLP* 

H' 

T1 

26 

MKCOSLP 

cos  a, ' 

- 

28 

MKSINLP 

sin  Z ' 

- 

28 

22 

MKSINCP 

sin  C' 

- 

28 

MKCP* 

C' 

rad 

27 

MKCOSCP 

cos  C' 

- 

28 

23 

MKBPDT* 

db  '/dt 

rad/sec 

42 

24 

MKT4 

B'  dA'/dt 

rad/sec 

42 

MKT5 

A'  dB'/dt 

Tl 

II 

MKT1 

T5  -  T4 

U 

II 

MKT3 

cos2  b' 

- 

28 

MKT2 

T1/T3 

rad/sec 

42 

mkt4 

T2-d/dt  (A -fl) 

T1 

11 

MKLPDT* 

dL  '/dt 

Tl 

11 

25 

MKWX* 

CO 

X 

rad/sec 

42 

MKWY* 

CO 

IT 

11 

y 

MKT1 

CO  2 

IT 

11 

X 

MKT2 

CO  2 

IT 

11 

y 

MKT3 

wv2  +  w  2 

IT 

11 

x  y 

MKWA* 

CO 

IT 

42 

a 

MKT1 

l/c  dRo/dt 

37 

MKT2 

2  f  b  to 

22 

c  a 

MKT3 

T2  .  T1 

22 

MKFCL* 

FCL 

cyc/sec 

22 

26 

MKCOSDA* 

cos  d 

28 

a 

MKSINDA* 

sin  d 

a 

- 

28 
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Routine 

Label 

Description 

Unit 

B 

27 

MKT2- 

Z  sin 
s 

- 

28 

MKT1 

X  cos  Jl ' 
s 

- 

T! 

MKXO* 

X 

o 

- 

II 

MKT9 

Z  cos  i' 
s 

- 

II 

MKT5 

T9  sin  b ' 

- 

II 

MKT10 

X  sin  £, ' 
s 

- 

II 

mkt4 

T10  sin  b' 

- 

It 

MKT3 

Y  cos  b' 
s 

- 

II 

MKYO* 

^0 

- 

II 

MKT6 

T10  cos  V 

II 

MKT7 

Y  sin  b' 
s 

- 

It 

MKT8 

T9  cos  b' 

- 

II 

MKZO* 

Z 

0 

- 

II 

28 

MKS* 

S 

- 

35 

MKT1 

S/cos  6' 

- 

28 

MKT2 

Xo  cos  C' 

- 

it 

MKT3 

Yo  sin  C' 

- 

it 

MKT4 

T2  +  T3 

- 

11 

MKDELALF* 

rad 

35 

MKT5 

X  sin  C' 
o 

- 

MKT6 

Y  cos  C ' 
o 

- 

MKT7 

t6  -  T5 

- 

MKDELDEL* 

A5 

rad 

35 

29 

MKS2 

S2 

- 

34 

MKT1 

zoS 

34 

MKT5 

S2  -  2  z  S 
o 

28 

MKRTX2 

RTX2 

28 

MKRTX 

RTX 

28 

MKDFX* 

DP 

27 

MKT2 

1-T1 

31 


Routine  Label 

Description 

Unit 

B 

29  (cont’d) 

MKT3 

dopp/rtx 

12 

MKT4 

fcl/rtx 

cyc/sec 

12 

RA* 

rev 

27 

RADOT* 

0 

- 

- 

DEC* 

rev 

27 

DECDOT* 

0 

- 

- 

RADIUS* 

e .  r. 

22 

RADIUS DOT* 

n.m./sec 

24 

MKDOP1* 

DOP1 

cyc/sec 

12 

MKD0P2* 

DOP2 

n 

II 

MKDOPPLER* 

DOPPLER 

IT 

II 

MKXD* 

Xd 

IT 

II 

M00ND0P2$ 

D0P2 

8 

DOPFACTOR$* 

D0P1/D0P2 

- 

28 
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APPENDIX  III  MOON  OFFSET  EPHEMERIS  TABLES:  GENERATION  AND  USE 
CALCULATION  OF  T  FOR  EPHEMERIS  INTERPOLATION 

D^  =  day  of  year  =  L  (DAY),  days  B 0 

Dq  =  1st  day  of  table  =  L(EPHDAY),  days  B0 

T^  =  time  of  day  =  W  (CELTIME),  days  B28 

EPH(T)  =  interpolated  ephemeris  table  value  for  present  time. 

1.  (D^  -  Dq)  /  10  =  K  +  R/lO  K  =  integer 

R  =  remainder 

2.  T  =  (R  +  Tx)  /  10,  days  B27 

3.  EFH(T)  =  EPH^  +  (EPH^+1  -  EPH^)  T 

EPHEMERIS  TABLE 

The  table  of  ephemeris  values  must  be  in  the  following  format : 

W(EPHCNT)  =  no.  values  in  each  of  the  four  tables. 

W(EPHDAY)  =  the  day  of  year  for  the  first  value  in  each  table. 
The  following  storage  allocations  must  remain  in  the  order: 

MKQK1  (EPHCNT  locations) 

MKQRST  (EPHCNT  locations) 

MKQI  (EPHCNT  locations) 

MKQSP  (EPHCNT  locations) 
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The  four  tables  containing  the  data  at  ten  (10)  day 
intervals  and  consisting  of  EPHCNT  values  must  be 
in  the  order: 

W(EPHRST)  =  1st  value  of  ( (£  -fl  +A),  rad  B26 


W(EPHRSTDT) 

W(EPHI) 

W(EPHSP) 


1st  value  of  d  ^  ^  ^ 1  rad/sec  B42 

1st  value  of  i,  rad  B26 
1st  value  of  q' ,  rad  B27* 


These  tables  must  be  updated  at  the  beginning  of  each 
year,  using  the  CDC  3300  Fortran  program  M00NKEPH,  with 
input  data  from  the  American  Ephemeris  and  Nautical 
Almanac .  (See  next  two  pages) 
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APPENDIX  IV  LISTING  OF  MOONTRACK  PROGRAM 


PROGRAM  NAME: 

MACHINE: 

LANGUAGE: 

AUTHORS: 

PURPOSE: 


INPUT: 


MOONKEPH 
CDC  3300 
FORTRAN 

R.  Shaputnic  Cuomo  and  P.  Crowther 

To  generate  a  moon  libration  ephemeris  deck  for  use  in  the 
MOONTRACK  program  of  the  Univai U90  Haystack  Pointing 
System.  This  deck  must  be  updated  at  the  start  of  each 
year. 

Cards  punched  from  Page  51  of  the  American  Ephemeris  and 
Nautical  Almanac  -  numbers  in  free  format  (integer, 
floating  point,  or  E- format),  separated  by  spaces  or 
commas. 

Card  Number  Contents 

1  Year 

2  Month  number,  day,  i^,  A^,  n^,  r  , 


OUTPUT: 


n  +  1 


Month  ,  day  ,  i  ,  A  ,  fi  ,  T,  H,  , 

n7  Jn  n7  n7  n7  n7  n7  n’ 


n  +  2  BLANK 

Data  cards  are  spaced  at  10-day  intervals  and  must  include 
at  least  3  intervals  before  the  beginning  of  the  year  (marked 
as  month  #1,  with  negative  day  numbers)  and  2  intervals  after 


the  end  of  the  year. 

Cards  in  U490  SPURT  format  for  insertion  into  the  MOONTRACK 
deck. 
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Column  1 


12  22 


EPHCNT 

EQUALS 

NN  (number  of  entires  in  each  table) 

COMMENT 

FOLLOWING  VALUES  FOR  YEAR  NNNN 

EPHRST 

DEC 

DEC 

X.XXXXXXXXB26 
X.XXXXXXXXB2 6 

NN  values 

DEC 

X.XXXXXXXXB26 

EPHRSDTDT 

DEC 

.XXXXXXXXB28 

NN  values 

DEC 

.XXXXXXXXXB28 

EPHC 

DEC 

.XXXXXXXXXB26 

NN 

where 


EPHSP 


DEC  .XXXXXXXX  B26 

DEC  XX.XXXXXXXXB26 


DEC  XX.XXXXXXXXB26 


NN 


EPHRST.  =  .  -  a.  +  A.  in  radians,  0  -  EPHRST  <  2 

J  0  0  0 


EPHESTDT 


2 14 .  2rt 

86400.360 


A.  _  -8&.  ,  +8A  -A> 

r„  v'-2 _ ill _ 1+1 _ 1±2 

L  120 


+13.176393  +  .05296] 


EPHI .  =  f£r  x  i  . 

J  360  j 


2  it 

J  360  j 


EPHSP.  =  x  Si' 
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31/32/4300  FORTRAN  (3.D/HS0S  03/04/69 


PROGRAM  MOONKEPH 
SHAPUTNIC,  27  DEC  66 

MODIFIED  BY  P,  CR0WTHER--21  JANUARY  1969 
DIMENSION  INAmE<2).PTHINQ<12>, 1  PTH ING< 3 ) 

CHARACTER  PTHING 
EQUIVALENCE  (PTHING, IPTHING) 

DIMENSION  zi (75),DEL<75) »D0M<75) »GaM<75) »0M<75) *DML(73)*EC«75>» 
1THING<75) ,DTHING(75).DZI (75) >DDOM<75) 

DIMENSION  XTH I NG ( 75 ) , A ( 20  ) 


17 

18 


201 

202 

301 

302 

*01 

402 


QD*1  • 

74532925E-2 

1*1 

CALL 

A  CARD  IN(A.NC) 

IYEAR 

■  A  ( 1 ) 

A(1) 

*01  call  a  card 

JN 

<A»NC) 

MO  * 

A(l)*.5  S  IDay  * 

A<2> 

*S I GNF ( 0 , 5,  A( : 

Z  I  ( I  > 

«  A ( 3 )  S  DEL ( I ) 

c  A< 

4) 

DOM(  I 

)  *  A ( 5  >  S  G AM ( I ) 

=  A  ( 6 

)  *  OM ( I  )  *  A 

EC  <  I ) 

*  A  (  9  > 

I F  ( I 

.Eq.  1)  17,18 

A  (  7 )  S  DML(  I)  *  A ( 8  ) 


IDAYX  «  IDAY 
IF(MO)  1.2.1 
1*1*1 
80  TO  3 
11*1-1 
DO  4  J«l,  I  I 

TH  *DmL< J)-OM{ J)*DEL(J)*720. 

I Th*Th/360  . 

THING(J)»(TH-( ItH*360) >*OD 
K*  1-3 

C0Nl*l3. 176396*00 
CON2*-.05296*OD 
DO  5  J*3 > K 

XTHING(J>*< (DEL(J-2).8.*DEL< J-l>*8. *DEL(J*1>-DEL< J*2>  >/12.0>/l0.  0 
DTHING( J)!(OD.XTHING( J)*CON1-CON2)/86400. 

DO  6  J*3 »  K 
DZI < J>*QD*ZI <  J  > 

DDOM(J)  *  OD*DOM ( J ) 

DO  7  J«3,K 

DTHING(J)  *  2 . **14*DTH I N8( J ) 

KK  *  K-2  S  WRjTe  (61*201)  KK  S 
FORMAT  (22H  EpHCNT  EQU*LS 

FORMAT  (21HEPHCNT  EQUALS 

IDAY3*IDAYX*20  S  WRITE(61,301) IDAY3  S  WR I TE ( 62, 302 )  I  DA Y3 
F0RMAT(12H  EPHDAY  ,12) 

FORMAT  (llHEPHDAY  .12) 

WRITE(6l,401> IYEAR  S  WRITE(62,402> IYBAR 

FORMAT(12X.10HCOMMENT  .26HF0LL0HIN0  VALUES  FOR  YEAR  .14) 
pORMAT  (11X.10HCOMMENT  . 26hF OLLOW J NG  VALUES  FOR  YEAR  « 1 4  ) 

JNAME(1)*4HEPhR  S  I  NAME ( 2  >  «  4H$T 


WRITE  (62,202)KK 
I2.1HD) 
I2.1HD) 


DO  9  J»3,K 

ENCODE* 10, 1000. IPTHING) TMING(J) 

1000  FORMAT ( F10  •  8  ) 

I F (PTHING ( 1 ) • EO  •  1R  >10,11 
10  PTHING(1)»1R0 

11  WRITE(61,501)INAME, ( PTH  I NG  <  M  > .Msl, 10) 

WR  I  TE( 62.502) I  NAME. (PTHING(M) , Msl, 10 ) 

501  FORMAT(lX.2A4,3x,3HDEC,7x.lORl>3HB26) 

502  FORMAT  (2A4,3x,3HD8C,7x.10R1.3HB26) 
INAME(1>«INAME(2>*4H 

9  CONTINUE 
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!NAME(1)b4HEPHRSInAME<2)*4HsTDT 
DO  12  Js 3 » K 

WRITE(61.601) INAmE,DtHING<J>  *  wRItE<62.602>INAME,DTHING<J> 

6fll  FORMAT(lX,2A4>3x,3HDEC,6X»FiO,8,«5HB28) 

602  FORMAT  (2a4,3X»3HDEC»6X*F10.8,3HB28) 

INAME(1)sINAME(2)sAH 

12  CONTINUE 
INAME(1)=4HEPHI 

DO  13  j=3.KSWRITE<61,701>iNaME'DXi (j)  $  WR \ TE < 62. 702 ) J NAME , DZ I ( J ) 
701  FORMAT  <1x,2A4,3x,3HDEC,6x,F10.8,3HB26> 

7fl2  FORMAT  (2A4,3X,3HDEC,6X»Fio -8.3MB26) 

I  name <  l )  mh 

13  continue 

INAME(1)s4HEPhS  S  I  NAME ( 2 ) s4Hp 
DO  16  Js3,K 

ENCODE* 11. 1001  * IPTHING) DDOM( J) 

1001  F0RMAT<F11.8> 

IFIPTHJNGQ)  ,Eo,  1R  >  14,15 

14  PTHINQ(1)SPTMING(2)*1R0 

15  WRITE!  61, 801)  I  NAME.  <PTHIN<J<M  ),  Ms  i,  u  ) 
WRlTE(62,802)lNAME*<PTHINQ<M)»M*l,ll) 

801  FORMAT ( lx ,  2A4,3X,3HDEC,7X,HR1,3HB26) 

802  FORMAT!  2 A4 » 3 X , 3HDEC, 7X » H Rl » 3HB26  ) 

|NAmE<1)=INAME<2)s4H 

16  CONTINUE 
STOP 
END 

FORTRAN  DIAGNOSTIC  RESULTS  FOR  MOONKEPH 


NO  ERRORS 
LOAD, 56 
RUN, 50 
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ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

ACARDIN 

EPHCNT 

ephday 

EPHRST 


1969 

-81  21.919  166.159 
-11  21.918  185.595 
-1  21.916  185,031 
9  21.915  184.466  - 
19  21.914  183,902 
29  21.913  183.338 
8  21.913  182.773  - 
18  21.912  182,209 


28  21.912  181,644 
10  21.911  181.079 
20  21-911  180.515 
30  21.911  179.950 
9  21.9H  179.385  0 
19  21.911  178,621 

29  21.912  178.256 
9  21.912  177.691  0 
19  21.913  177,127 
29  21.913  176,562 
8  21.914  175,998  0 
18  21.915  175,434 
28  21.916  174,869 
8  21.918  174.305  0 
18  21.919  173,741 
28  21.921  173,177 
7  21.923  172.612  0 

8  17  21.925  172,048 
8  27  21.927  171.484 
6  21.929  170.920  0 
16  21.931  170.355 
26  21.934  169,791 
6  21.936  169.227 
16  21.939  168.663 

10  26  21.942  168.099 

11  5  21.945  167,536 
11  15  21.948  166.972 

11  25  21.951  166.409 

12  5  21-954  165.845 
12  15  21.958  165.282 
12  25  21.961  164.719 
12  35  21.965  164.156 
12  45  21.969  163.593 
12  55  21.973  163.030 


9 

9 

9 

10 
10 


-0.414  259.5351  5.7780  138.6864  239.8968 
-0.376  260.6491  5.2485  270.4503  1.8043 
-0.338  261.7632  4.7189  42.2143  123,7118 
0.300  262.6/72  4.1894  173.9783  245,6193 
-0.263  263.9912  3.6599  305.7422  7.5268 
-0.225  265,1053  3.1303  77.5062  129.4343 
0.187  266.2193  2.6008  209.2702  251,3418 
-0.149  267.3333  2.0713  341.0341  13.2492 
-0.111  268,4474  1.5417  112.7981  135.1567 
-0,073  269,5614  1.0122  244.5620  257.0642 
-0.035  270.6755  0.4826  16.3260  18.9717 
0.003  271.7895  359.9531  146.0900  140.8792 
.041  272.9035  359.4236  279.8539  262.7867 
0.079  274.0176  358.8940  51.6179  24.6942 

0.117  275.1316  358.3645  183.3819  146,6017 

.155  276.2456  357.8349  315.1458  268.5092 
0.193  277.3597  357,3054  86.9098  30.4167 

0.231  278.4737  356,7759  218.6738  152.3242 

.269  279.58/8  356.2463  350.4377  274.2317 
0.307  280.7018  355,7168  122.2017  36.1391 

0.345  281.8158  355.1873  253.9657  158.0466 

.383  282.9299  354.6577  25.7296  279.9541 
0.421  284.0439  354.1282  157.4936  41.8616 

0.458  285.1579  353,5986  289.2576  163.7691 

.496  266 . 27^0  353.0691  61.0215  285.6766 
0.534  287.3860  352.5396  192.7855  47.5841 

0.571  288.5000  352.0100  324.5495  169.4916 

.609  289.6141  351.4805  96.3134  291.3991 
0.646  290.7281  350,9509  228.0774  53.3066 

0.684  291.8422  350,4214  359.8413  175.2141 

0.721  292.9562  349.8919  131.6o53  297.1216 

0.738  294 , 0702  349.3623  263.3693  59.0290 
0,795  295.1843  348.6328  35.1332  180.9365 
0.833  296.2983  348.3033  166.8972  302.8440 
0.870  297,4123  347.7737  298.6612  64.7515 
0.907  298.5264  347.2442  70.4251  186.6590 
0.943  299.6404  346.7146  202.1891  308.5665 
0.980  300. /545  346.1851  333.9531  70.4/40 
1.017  301.8685  345.6556  105.7170  192.3815 
1.053  302.9625  345.1260  237.4810  314.2890 
1.090  304.0966  344.5965  9.2450  76,1965 
1.126  305.2106  344.0669  141.0089  198.1040 


EQUALS 

38D 

•1 

COMMENT 

FOLLOWING  VALUES  FOR  YEAR  1969 

DEC 

3.88381835B26 

DEC 

6.18291439B26 

DEC 

2 . 19884  084B26 

DEC 

4.49795608B26 

DEC 

0.51386682B26 

DEC 

2.81297857826 

DEC 

5.11207635826 

DEC 

1.12798535B26 

DEC 

3.42710059B26 

DEC 

5.72619663B26 

DEC 

1.74210563B26 

DEC 

4.04122087B26 

DEC 

0.05713161826 

DEC 

2.35622765B26 

39 


EPHRSTDT 


DEC 

4 , 65534x14024 

DEC 

0.67125168024 

DEC 

2.97036538024 

DEC 

5.26947667626 

DEC 

1.28536961026 

DEC 

3.56450311026 

DEC 

5.88361660626 

DEC 

1.89954654026 

DEC 

4.19864084026 

DEC 

0.21456903626 

DEC 

2.51368427026 

DEC 

4.81279602026 

DEC 

0.82870851026 

DEC 

3.12782026026 

DEC 

5.42693375626 

DEC 

1.44286369626 

DEC 

3.74197544026 

DEC 

6.04H0639626 

DEC 

2.05703633026 

DEG 

4.35616553026 

DEC 

0.37209547026 

DEC 

2.67122642026 

DEC 

4.97033562026 

DEC 

0.98630301026 

DEC 

. 04359783928 

DEC 

. 04359783028 

DEC 

.04359808B28 

DEC 

.04359783828 

DEC 

.04359786B28 

DEC 

.04359789B28 

DEC 

. 04359764B28 

DEC 

•04359789B28 

DEC 

.04359789828 

DEC 

.04359764B28 

DEC 

.04359789828 

DEC 

.04359789B28 

DEG 

.04359764B28 

DEC 

. 04359789828 

DEC 

.04359786028 

DEC 

.04359783B28 

DEC 

.04359808828 

DEC 

•04359783B28 

DEC 

.04359783028 

DEC 

.04359805B28 

DEC 

.04359805828 

DEG 

.04359783828 

DEC 

.04359783628 

DEe 

.04359805828 

DEC 

.04359605B28 

DEC 

•04359783B28 

DEC 

.04359783828 

DEC 

. 04359805828 

DEC 

.04359802628 

DEC 

.04359800628 

DEC 

.04359822828 

DEC 

. 04359819B28 

DEC 

.04359819828 

DEC 

.04359819828 

DEC 

.04359S16B28 

DEC 

.04359838828 

DEe 

.04359835828 

DEC 

.04359835028 

4o 


6PHI 


SPHSP 


DEC 

.38290636626 

DEC 

.38248891626 

DEC 

.38247149626 

DEC 

.38245400826 

DEC 

.38245400826 

DEC 

.38243659626 

DEC 

.38243659626 

DEC 

.38241909626 

DEC 

.38241909626 

DEC 

.38241909626 

DEC 

.38241909626 

DEC 

.38241909826 

DEC 

.38243655826 

DEC 

.38243655626 

DEC 

.38245400826 

DEC 

.38245400626 

DEC 

.38247145826 

DEC 

.38248891626 

DEC 

.38250636626 

DEC 

.38294127826 

DEC 

.38255872626 

DEC 

.38259362626 

DEC 

.38262853626 

DEC 

.  38266344026 

DEC 

.38269834626 

DEC 

.38273325626 

DEC 

.38276816626 

DEC 

.38282052826 

DEC 

.38285542626 

DEC 

.38290778626 

DEC 

.38296014626 

DEC 

.38301250626 

DEC 

.38306486626 

DEC 

.38311722826 

DEC 

.38316958626 

DEC 

.38323940626 

DEC 

.38329176626 

DEC 

.38336157626 

DEC 

-0.00589921B26 

DEC 

-0.00523599826 

DEC 

•0.00459022626 

DEC 

•0.00392699626 

DEC 

-0.00326377826 

DEC 

•0.00260054626 

DEC 

-0.00193732626 

DEC 

-0.00127409626 

DEC 

•0.00061087826 

DEC 

00.00005236626 

DEC 

00.00071558826 

DEC 

00.00137881B26 

DEC 

00.00204204826 

DEC 

00.00270926826 

DEC 

00.00336849826 

DEC 

00.00403171626 

DEC 

00.00469494626 

DEC 

00.00535816826 

DEC 

00.00602139626 

DEC 

00.00668461B26 

DEC 

00.00734784626 

DEC 

00 . 00799361826 

DEC 

00.00865683826 

DEC 

00.00932006826 

4l 


DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

I  FTN  060  (  STOP  ) 


.00996383026 

.01062906026 

.01127483026 

.01193803026 

.01236382026 

.01322960026 

.01367337026 

.01433839026 

.01316436026 

.01363014026 

.01643643026 

.01710423026 

.01773000026 

.01837632026 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


iiiiiiimuiiiiiiiiiiiii  spu.<T  output  no,  HO 

. . . . . 

MOONTrtACK  P.CROWTHER«?OFt869 

NO.  OF  INSTRUCTIONS  07425 

00000  THRU  01453 

03652  THRU  07424 


inn 

1 1  1  i  1 1  1 1  S 1 1 1 1  i  S 1 1  i  S  SPURT  OUTPUT  NO#  110 

1  S  1  II 1  1  1 !  1  1  1  1 S 

iilllllllll 

ttnnn 

n  n  n  n  n  n  n  n  n  t  n  n  n 

1 1 1 1 1 ;  i 

n  n  ;  n  n  n  n  1 1  n  n  n  1 1 1  n  ; 

MOONTRACK  P . CR0*THER*20FEb69 

CARDS 

Ll  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

OOOUO  MOONTRACK 

PROGRAM  P.CR0WTHER*20FEB69 

• 

00001  M00NUTA6 

U-TAG  M00NW0RK*M0UNINIT 

ooooo 

00243 

00005 

• 

00Q02 

FD 

1*M00NP 

00001 

22242 

42325 

• 

U0003  EPHEM 

MEANS  C15 

• 

U0004  LUNAR 

EQUALS  100 

• 

OOOUb  MONITAPt 

EQUALS  55 

• 

0000b  TAPEINPUT 

EQUALS  35 

• 

00007  EPHEMTAPE 

EQUALS  00002 

EPHEMERIS  TAPE  UNIT 

t 

00010  NUMFILES 

EQUALS  12D 

• 

00011  RECSIZE 

EQUALS  80 

• 

00012  AREACNT 

EQUALS  11650 

• 

00013 

COMMENT  AREACNT  =  CNT  TO  PE  CLEARED 

between  yremain  AND  lastephem 

• 

00014  CELMOON 

FD 

3*0BJECT  MOON 

00002 

24071 

71210 

00003 

31052 

22424 

00004 

23050 

50505 

• 

00015  MOONINIT 

ENTRY 

00005 

61000 

OOOOO 

• 

00016 

MOVE 

3*CELM00N*CELB0DY 

00006 

10030 

00002 

00007 

14030 

63113 

00010 

10030 

00003 

00011 

14030 

63114 

00012 

10030 

00004 

00013 

14030 

63115 

• 

00017 

ENT 

A*W ( IGNORE) 

00014 

11030 

01051 

• 

00020 

STR 

a**(monitape> 

00015 

15030 

00055 

0 

00021 

ENT 

A*W ( INTERUPT) 

00016 

11030 

01052 

0 

00022 

STR 

A*W (TAPEINPUT) 

00017 

15030 

00035 

0 

00023 

CLEAR  AREACNT*YRREMAIN 

00020 

70100 

02215 

00021 

16030 

01436 

0 

00024 

ENT 

Q*W (EQUATOR) 

00022 

10030 

63323 

B17 

0 

0002b 

MUL 

W(RHRSEC) 

00023 

22030 

01066 

0 

00026 

LSH 

AQ*1*QP0S 

00024 

07200 

00001 

0 

00027 

ADD 

A*1 

00025 

20000 

00001 

0 

U0030 

STR 

A*W(ERNMSEC) 

00026 

15030 

01065 

B28 

0 

00031 

ENT 

a*u(yearmonth) 

00027 

11020 

63147 

0 

00032 

SUB 

A*1961D 

00030 

21000 

03651 

0 

00033 

STR 

A*W(M0NTHPRINT) 

00031 

15030 

01032 

0 

00034 

RSH 

AQ*30D 

00032 

03000 

00036 

0 

00035 

DIV 

4 

00033 

23000 

00004 

0 

00036 

STR 

A*W ( YRREMAIN) 

00034 

15030 

01436 

(0>lr2*3) 

0 

00037 

MUL 

1461D 

00035 

22000 

02665 

DAYS  IN  4  YRS 

0 

00040 

STR 

Q*W(WHOLEYEAR) 

00036 

14030 

01437 

0 

UU041 

ENT 

Q*W( YRREMAIN) 

00037 

10030 

01436 

0 

00042 

MUL 

365D 

00040 

22000 

00555 

0 

00043 

RPL 

Y+Q*W (WHOLE YEAR) 

00041 

34030 

01437 

0 

00044 

RJP 

DAYFIND 

00042 

65000 

00437 

0 

00045 

CL 

w( imperial) 

00043 

16030 

01441 

SET  EOF  COUNT  =  0 

0 

00046  TRYAGAIN 

ENT 

A*W ( SAFE ) 

00044 

11030 

01452 

0 

00047 

STR 

A*W (TAPEBLOCK) 

00045 

15030 

01442 

0 

00050 

IN 

EPHEM^W(EPHEMA) 

00046 

73670 

03653 

0 

00051 

SUB 

A»3 

00047 

21000 

00003 

IDENT-3 

0 

00052 

EX-FCT  EPHEM*to (SRHIBIN) 

00050 

13670 

01050 

\ 


4> 

Ui 


00053 

STR 

A*L( TAPESEARCH) 

00054 

EX-1 

FCT  EPHEM*W ( TAPESEARCH ) 

00055 

JP 

S 

00056 

IN 

EPHEM*W(EPHEMB> 

00057 

RPL 

Y+1*W (TAPESEARCH) 

00060 

EX-1 

FCT  EPHEM*W( SRHIBIN) 

00061 

NO- 

OP 

00062 

EX-I 

FCT  EPHEM*W ( TAPESEARCH ) 

00063 

JP 

$ 

00064 

IN 

EPHEM*W ( EPHEMC ) 

00065 

RPL 

Y+l*# (TAPESEARCH ) 

00066 

EX-1 

FCT  EPHEM*W (SRHIBIN) 

00067 

NO-i 

OP 

00070 

EX-1 

FCT  EPHEM*W (TAPESEARCH) 

00071 

JP 

S 

00072 

IN 

EPHEM*W ( EPHEMD ) 

00073 

RPL 

Y+1*W (TAPESEARCH) 

00074 

EX-1 

FCT  EPHEM*W( SRHIBIN) 

00075 

NO-i 

OP 

00076 

EX-1 

FCT  EPHEM*W (TAPESEARCH) 

00077 

JP 

$ 

00100 

IN 

EPHEM*W(EPHEME) 

00101 

RPL 

Y+1*W(TAPESEARCH) 

00102 

EX-1 

FCT  EPHEM*W (SRHIBIN) 

00103 

NO-i 

OP 

00104 

EX-1 

FCT  EPHEM*W( TAPESEARCH) 

00105 

JP 

S 

00106 

IN 

EPHEM*W ( EPHEMF ) 

00107 

RPL 

Y+1*W (TAPESEARCH) 

00110 

EX-1 

FCT  EPHEMC W (SRHIBIN) 

00111 

NO-i 

OP 

00112 

EX-1 

FCT  EPHEM*W ( TAPESEARCH) 

00113 

JP 

S 

00114  NORMAL 

EX-1 

FCT  EPHEM*W(REWINDN0) 

00115 

JP 

$ 

00116 

RJP 

MOONTIME 

00117 

ENT 

B4*L (RAAD) 

00120 

ENT 

A*L(RADIFAD) 

00121 

RJP 

INTERPOL 

00122 

ENT 

Q*0*ANEG 

00123 

SUB 

A*W(TWOPIE)*APOS 

00124 

ADO 

A*W ( TWOPIE) 

00125 

RSH 

AQ*27D 

00126 

OIV 

W(HRAD) 

00127 

STR 

Q*W(RA2) 

00130 

CL 

Q 

00131 

RSH 

AQ*23D 

00132 

DIV 

W(MINSRAD) 

00133 

STR 

Q*W (RA4) 

00134 

RSH 

AQ*30D 

00135 

MUL 

W(SRAD) 

00136 

LSH 

AQ*2*QP0S 

00137 

ADD 

A*1 

00140 

STR 

A*W (RA6) 

00141 

ENT 

B4*L (DECAD) 

00142 

ENT 

A*L(DECDIFAD) 

00143 

RJP 

INTERPOL 

00144 

STR 

A*W(GMT2) 

00145 

ENT 

G*0* APOS 

00051 

15010 

03661 

00052 

13670 

03661 

00053 

61000 

00053 

00054 

73670 

03654 

00055 

36030 

03661 

00056 

13670 

01050 

00057 

12000 

00000 

00060 

13670 

03661 

00061 

61000 

00061 

00062 

73670 

03655 

00063 

36030 

03661 

00064 

13670 

01050 

00065 

12000 

00000 

00066 

13670 

03661 

00067 

61000 

00067 

00070 

73670 

03656 

00071 

36030 

03661 

00072 

13670 

01050 

00073 

12000 

00000 

00074 

13670 

03661 

00075 

61000 

00075 

00076 

73670 

03657 

00077 

36030 

03661 

00100 

13670 

01050 

00101 

12000 

00000 

00102 

13670 

03661 

00103 

61000 

00103 

00104 

73670 

03660 

00105 

36030 

03661 

G01U6 

13670 

01050 

00107 

12000 

00000 

00110 

13670 

03661 

00111 

61000 

00111 

00112 

13670 

01053 

00113 

61000 

00113  WAIT  FOR  INTERRUPT 

00114 

65000 

00504 

00115 

12410 

01443 

00116 

11010 

01444 

00117 

65000 

01136 

00120 

10700 

00000 

00121 

21630 

01067 

00122 

20030 

01067 

00123 

03000 

00033 

00124 

23030 

01056 

00125 

14030 

00710 

00126 

10000 

00000 

00127 

03000 

00027 

00130 

23030 

01057 

00131 

14030 

00713 

00132 

03000 

00036 

00133 

22030 

01055 

00134 

07200 

00002 

00135 

20000 

00001 

00136 

15030 

00716 

00137 

12410 

01445 

001  0 

11010 

01446 

00141 

65000 

01136 

00142 

15030 

00776 

00143 

10600 

00000 

■F- 

ON 


00146 

CP 

A 

00147 

RSH 

AQ*22D 

00150 

DIV 

W(MINSRAD) 

00151 

STR 

Q*W ( DLN2 ) 

00152 

CL 

Q 

00153 

RSH 

AQ*24D 

00154 

DIV 

W(SECSRAD) 

00155 

STR 

Q*W (DLN4 ) 

00156 

RSH 

AQ*30D 

00157 

MUL 

W(SARAD) 

00160 

LSH 

AQ*2*QP0S 

00161 

ADD 

A*1 

00162 

STR 

A*W(DLN6) 

00163 

ENT 

A*W(GMT2)*ANEG 

00164 

JP 

S+3 

00165 

ENT 

A*W ( DLN2 ) 

00166 

STR 

A*CPW(DLN2) 

00167 

ENT 

A*W (CELTIME) 

O0170 

ENT 

Q*0*AP0S 

00171 

CP 

A 

00172 

RSH 

AQ*26D 

00173 

DIV 

W(HDAY) 

00174 

STR 

Q*W (GMT2) 

00175 

CL 

Q 

00176 

RSH 

AQ*23D 

00177 

DIV 

W(MDAY) 

00200 

STR 

Q*W ( GMT4 ) 

00201 

RSH 

AQ*30D 

00202 

MUL 

W(SDAY) 

00203 

LSH 

AQ*2*QP0S 

00204 

add 

A*1 

00205 

STR 

A*W ( GMT6) 

00206 

ENT 

A*W<CELTIME)*ANE3 

00207 

JP 

$+3 

00210 

ENT 

A*W ( GMT2 ) 

00211 

STR 

A*CPW(GMT2) 

00212 

ENT 

B4*L ( DISIAD ) 

00213 

ENT 

A*L(DISTDIFAD> 

00214 

STR 

A*L(SETINTAD) 

00215 

RJP 

INTERPOL 

00216 

STR 

A*W ( INITIAL18) 

00217 

ENT 

A*W ( JULIANDAY) 

00220 

STR 

A*W ( INITI AL3) 

00221 

ENT 

A*L(DAY> 

00222 

STR 

A*W ( INITI AL12 ) 

00223  PRINT 

ENT 

A*U(KYBRDLEVEL) ♦AZERO 

00224 

JP 

AIRPORT 

00225 

RJP 

U ( INTERCOM) 

00226 

U-TAG  RGHTASC*0 

00227 

RJP 

U( INTERCOM) 

00230 

U-TAG  D£N*0 

00231 

RJP 

U( INTERCOM) 

00232 

U-TAG  INITIALDAT*0 

00233 

RJP 

U( INTERCOM) 

00234 

U-TAG 

*  GMT*0 

00235 

RJP 

U ( INTERCOM) 

00236 

U-TAG 

*  INITIALDIS*0 

00237 

RJP 

U( INTERCOM) 

00240 

U-TAG 

.  INITIALB0D*O 

00144 

15040 

00000 

00145 

03000 

00026 

00146 

23030 

01057 

00147 

14030 

00743 

00150 

10000 

00000 

00151 

03000 

00030 

00152 

23030 

01063 

00153 

14030 

00746 

00154 

03000 

00036 

00155 

22030 

01064 

00156 

07200 

00002 

00157 

20000 

00001 

00160 

15030 

00751 

00161 

11730 

00776 

00162 

61000 

00165 

00163 

11030 

00743 

00164 

15070 

00743 

00165 

11030 

63133 

00166 

10600 

00000 

00167 

15040 

00000 

00170 

03000 

00032 

00171 

23030 

01060 

00172 

14030 

00776 

00173 

10000 

00000 

00174 

03000 

00027 

00175 

23030 

01061 

00176 

14030 

01001 

00177 

03000 

00036 

00200 

22030 

01062 

00201 

07200 

00002 

00202 

20000 

00001 

00203 

15030 

01004 

00204 

11730 

63133 

00205 

61000 

00210 

00206 

11030 

00776 

00207 

15070 

00776 

00210 

12410 

01447 

00211 

11010 

01450 

00212 

15010 

01135 

00213 

65000 

01136 

00214 

15030 

01017 

00215 

11030 

01440 

00216 

15030 

00654 

00217 

11010 

63150 

00220 

15030 

00665 

00221 

11420 

63110 

00222 

61000 

00237 

00223 

65020 

63426 

00224 

00666 

00000 

00225 

65020 

63426 

00226 

00721 

00000 

00227 

65020 

63426 

00230 

00655 

00000 

00231 

65020 

63426 

00232 

00754 

00000 

00233 

65020 

63426 

00234 

01007 

00000 

00235 

65020 

63426 

00236 

01020 

00000 

00  WE  USE  CONSOLE  TYPEWRITE 
NO 


00241  AlkPORT 

NO-OP 

00242 

RJP 

MXINIT 

00243 

RPL 

Y+1*L(M00NINIT> 

o0244 

EXIT 

00243 

COMMENT 

0024o 

COMMENT 

00247 

comment 

00250  MOUNWORK 

ENTRY 

jU2bl 

RPL 

Y+1*L(M00NH0RK> 

00252 

RJP 

moontime 

00253  HARVARD 

ENT 

B4*L (RAAD) 

00254 

ENT 

A*L(RADIFAD) 

00255 

RJP 

INTERPOL 

002bb 

5TR 

A*W (MKRA ) 

00257 

ENT 

Q*W(MKRA> 

U02o0 

MUL 

*<revsradian> 

U02bl 

RJP 

ROUND 

u02b2 

STR 

A*to ( RA) 

o02b3 

ENT 

Q*W (NUMDERI V) 

00264 

MUL 

W(RHRSEC) 

0026b 

LSH 

AQ*  1 

00266 

STR 

A*W(RADOT) 

00267 

LSH 

AQ*5 

O0270 

RJP 

ROUND 

00271 

STR 

A*W(MKRADOT) 

00272 

ENT 

B4*L(DECAD) 

00273 

ENT 

A*L(DECDIFAD) 

00274 

RJP 

INTERPOL 

U027b 

STR 

A*w(MKDEC> 

00276 

STR 

A*W(DECLINRAD)*SKIP 

U0277  OECLINRAD 

0 

00300 

ENT 

Q*26D 

00301 

RJP 

COS 

00302 

RSH 

AQ*30D 

00303 

MUL 

W(RADOT) 

00304 

LSH 

AQ*2 

0030b 

RJP 

ROUND 

00306 

STR 

A*W(RADOT) 

00307 

ENT 

Q*w (DECLINRAD) 

00310 

MUL 

W (REVSRADIAN) 

00311 

RJP 

ROUND 

00312 

STR 

A*W  (DEC ) 

00313 

ENT 

G*a'(NUMDERIV> 

00314 

MUL 

w(RHRSEC) 

0031b 

LSH 

aq*  1 

uU316 

STR 

A*W(DECDOT> 

00317 

LSH 

AQ*5 

U0320 

RJP 

ROUND 

00321 

STR 

A*W (MKDECDOT ) 

00322 

ENT 

B4*L (DlSTAD) 

00323 

ENT 

A*L(DISTDIFAD> 

00324 

RJP 

INTERPOL 

0032b 

STR 

A^W ( RADIUS ) 

u0326 

STR 

A*W(MKDO> 

00327 

ENT 

Q*W(NUMDERIV> 

00330 

MUL 

W (ERNMSEC  > 

o0331 

LSH 

AQ*4 

00332 

STR 

A*W (RAOIUSDOT) 

00237 

12000 

00000 

00240 

65000 

03662 

INITIALIZE  OFFSET 

00241 

36010 

00005 

SET  FOR  NORMAL  EXIT 

00242 

61010 

00005 

EXIT  FROM  INITIALIZATION 

00243 

61000 

00000 

00244 

36010 

00243 

SET  FOR  NORMAL  EXIT 

00245 

65000 

00504 

00246 

12410 

01443 

00247 

11010 

01444 

00250 

65000 

01136 

00251 

15030 

06643 

00252 

10030 

06643 

00253 

22030 

01047 

00254 

65000 

01426 

00255 

15030 

63002 

00256 

10030 

01127 

00257 

22030 

01066 

B  40 

00260 

07000 

00001 

00261 

15030 

63007 

B37  RADS/SEC 

00262 

07000 

00005 

AT  B42 

00263 

65000 

01426 

00264 

15030 

06641 

00265 

12410 

01445 

00266 

11010 

01446 

00267 

65000 

01136 

00270 

15030 

06644 

00271 

15130 

00272 

SAVE  DECLINATION  IN  RADIANS 

00272 

00000 

00000 

DEC  IN  RAD  AT  P26 

00273 

10000 

00032 

00274 

65000 

06343 

GET  COS  AT  B28 

00275 

03000 

00036 

TO  Q  AT  B28 

00276 

22030 

63007 

♦RADOT  AT  B<N> 

00277 

07000 

00002 

00300 

65000 

01426 

00301 

15030 

63007 

NEW  RAOOT  IS  (COS(DECL) *RADOT) 

00302 

10030 

00272 

DEC  IN  RAD  AT  B26 

00303 

22030 

01047 

IN  REV  AT  026+931=557 

00304 

65000 

01426 

00305 

15030 

63003 

DEC  IN  REV  AT  B27 

00306 

10030 

01127 

00307 

22030 

01066 

00310 

07000 

00001 

00311 

15030 

63010 

B37  PADS/SEC 

00312 

07000 

00005 

AT  B42 

00313 

65000 

01426 

00314 

15030 

06642 

00315 

12410 

01447 

00316 

11010 

01450 

00317 

65000 

01136 

00320 

15030 

63006 

B22 

00321 

15030 

06645 

IN  E • P •  AT  B22 

00322 

10030 

01127 

00323 

22030 

01065 

00324 

07000 

00004 

IN  NM/SEC  AT  B24 

00325 

15030 

63011 

B24 

00333 

LSH 

AQ*5 

00326 

07000 

00005 

AT  529 

U0334 

RJP 

ROUND 

00327 

65000 

01426 

00335 

STR 

A*W ( MKDDOT ) 

00330 

15030 

06654 

0033d 

ENT 

0*A 

00331 

10070 

00000 

00337 

MUL 

w(MKQERPNM) 

00332 

22030 

06631 

00340 

LSH 

AQ*  1 

00333 

07000 

00001 

00341 

RJP 

ROUND 

00334 

65000 

01426 

00342 

STR 

A*W ( MKDDOTX ) 

00335 

15030 

06655 

00343 

ENT 

A*rf(MOONSW*)*ANOT 

00336 

11530 

63343 

INCLUDE  OFFSET 

00344 

EXIT 

00337 

olOlO 

00243 

NO*  EXIT  FROM  MOONWORK 

00345 

COMMENT  INTERPOLATE 

L£ 

EPHE^ERIS 

TAb 

00346 

COMMENT  OAY-EPHDAY=K+R 

00347 

comment  CELTIME+R)/10=P 

TIME  FOR 

I  NT 

ERPOLATE  627 

00350 

C  OMMENT  EPH ( P )  =  ( EPH ( K  4 1 

u  \ 

)-EPH(K) )P+EPH( 

00351 

r\  / 

RPL 

Y-1*W(MKDELAYCNT) *aneg 

00340 

37730 

07022 

00352 

EXIT 

00341 

61010 

00243 

NO  OFFSET  YET 

00353 

STR 

B1*L(MKB1ST0R) 

00342 

16110 

00435 

00354 

CL 

A 

00343 

11000 

00000 

00355 

ENT 

Q*L(DAY) 

00344 

10010 

63150 

0035b 

SUB 

Q*LX (EPHDAY) *QP03 

00345 

27650 

07170 

00357 

0 

0 

00346 

00000 

00000 

00360 

DIV 

10D*NOOF 

00347 

23200 

00012 

00361 

RJP 

SOVERFLOW 

00350 

65000 

06257 

u0362 

LSH 

AQ*30D 

00351 

07000 

00036 

O0363 

ENT 

B7*A 

00352 

12770 

00000 

00364 

LSH 

<i*25D 

00353 

05000 

00031 

00365 

ENT 

A*W(CELTIME) 

00354 

11030 

63133 

0036d 

RSH 

A  *3 

00355 

02000 

00003 

00367 

STR 

A4Q*w<MKT1) 

00356 

32030 

07000 

00370 

CL 

Q 

00357 

10000 

00000 

00371 

RSH 

AQ*3 

00360 

03000 

00003 

00372 

DIV 

W ( TENB25) ♦NOOF 

00361 

23230 

06622 

00373 

RJP 

SOVERFLOW 

00362 

65000 

06257 

00374 

STR 

(EPHP) 

00363 

14030 

07160 

O037D 

COMMENT  COMPUTE  MKQi\I*  MKORSDT *  MKQI  * 

MKQSP 

0037o 

PUT 

W(TWOPIE)*W(MOD2PI) 

00364 

10030 

01067 

00365 

14030 

07161 

00377 

6SK 

B1*B1 

00366 

71101 

00000 

U0400  tPHlNTEKP 

ENT 

87*EPHCNT4B7 

00367 

12707 

00046 

00401 

ENT 

Q*W(EPHRST4l+37) 

00370 

10037 

07172 

00402 

SUB 

Q*w(EPHRST+B7)*QP0S 

00371 

27637 

07171 

00403 

ADD 

G*W(M002PI) 

00372 

26030 

07161 

2*PI  AT  B26 

00404 

MUL 

W(EPHP) 

00373 

22030 

07160 

O0405 

LSH 

AQ*3 

00374 

07000 

00003 

00406 

RJP 

ROUNO 

00375 

65000 

01426 

00407 

SUB 

A* w ( M0D2PI ) 

00376 

21030 

07161 

00410 

ADO 

A*W<EPHRST+B7)*AP0S 

00377 

20637 

07171 

00411 

ADD 

A*w (M0D2PI ) 

00400 

20030 

07161 

00412 

STR 

A*W ( MKQK1 +B1 ) 

00401 

15031 

07162 

00413 

CL 

V (M0D2PI ) 

00402 

16030 

07161 

00414 

BSK 

Bl*3 

00403 

71100 

00003 

00415 

JP 

EPHlNTEkP 

00404 

61000 

00367 

o041d 

RJP 

MXLHA 

00405 

65000 

04202 

00417 

RJP 

MXRO 

00406 

65000 

04220 

O0420 

RJP 

MXRODT 

00407 

65000 

04351 

00421 

RJP 

MXDOP 

U0422 

RJP 

MXA 

00423 

RJP 

MXB 

00424 

RJP 

MXC 

00425 

RJP 

MXDELP 

00426 

RJP 

MXALF 

00427 

RJP 

MXDECPDT 

00430 

RJP 

MXAPDT 

00431 

RJP 

MXA1 

00432 

RJP 

MXB1 

00433 

RJP 

MXC1 

00434 

RJP 

MXSINBP 

00435 

RJP 

MXSINLP 

00436 

RJP 

MXSINCP 

00437 

RJP 

MXBPDT 

00440 

RJP 

MXLPDT 

00441 

RJP 

MXFCL 

00442 

RJP 

MXDA 

00443 

RJP 

MXXYZ 

00444 

RJP 

MXDELALF 

00445 

RJP 

MXDPDOP 

00446  MKdlST OR 

ENT 

B1*00 

00447 

EXIT 

00450  DAYFIND 

ENTRY 

00451 

ENT 

A*W(CELTIME) *ANEb 

00452 

JP 

FLATPOS 

00453  FLATNEG 

CP 

A 

U0454 

SUB 

A*W(HALFDAY)*APOS 

00455 

JP 

LESSONE 

00456 

RSH 

AQ*30D 

00457 

DIV 

W( HALFDAY) 

00460 

LSH 

AQ*30D 

00461 

SUB 

A*1 

00462 

JP 

TWOLESS* AZERO 

00463 

JP 

TWOLESS*ANEG 

00464 

ENT 

A*-3*SKIP 

00465  TWOLESS 

ENT 

A*-2 

00466 

JP 

STORE 

00467  FLATPOS 

SUB 

A*W(HALFDAY)*ANE3 

00470 

JP 

MOREONE 

00471  LESSONE 

ENT 

A*-l 

00472 

JP 

STORE 

00473  MOREONE 

RSH 

AQ*30D 

00474 

DIV 

W( HALFDAY) 

00475 

LSH 

AQ*30D 

00476 

SUB 

A*1 

00477 

JP 

CERO* AZERO 

00500 

JP 

CERO*ANEG 

00501 

ENT 

A*1*SKIP 

00502  CERO 

ENT 

A*0 

J0503  STORE 

STR 

A*W(DAYINCRMNT) 

00504 

add 

A*W(WHOLEYEAR) 

00505 

add 

A*2437300D 

00506 

add 

A*L(DAY) 

O0507 

STR 

A*W ( JULI ANDAY ) 

00510 

SUB 

A*2438145D 

00511 

SUB 

A*W(DAYINCRMNT) 

00512 

STR 

A*W (SAFE) 

00513 

EXIT 

O0410 

65000 

04472 

00411 

65000 

04517 

00412 

65000 

04553 

00413 

65000 

04625 

00414 

65000 

04661 

00415 

65000 

04677 

00416 

65000 

04740 

00417 

65000 

05017 

00420 

65000 

05055 

00421 

6500U 

05146 

00422 

65000 

05230 

00423 

65000 

05312 

00424 

65000 

05327 

00425 

65000 

05375 

00426 

65000 

05413 

00427 

65000 

05424 

00430 

65000 

05466 

00431 

65000 

05543 

00432 

65000 

05563 

00433 

65000 

05674 

00434 

65000 

05761 

00435 

12100 

00000 

00436 

olOlO 

00243 

00437 

61000 

00000 

00440 

11730 

63133 

00441 

61000 

00456 

00442 

15040 

00000 

00443 

21630 

01046 

00444 

61000 

00460 

00445 

03000 

00036 

00446 

23030 

01046 

00447 

07000 

00036 

00450 

21000 

00001 

00451 

60400 

00454 

00452 

60700 

00454 

00453 

11140 

77774 

00454 

11040 

77775 

00455 

61000 

00472 

00456 

21730 

01046 

00457 

61000 

00462 

00460 

11040 

77776 

00461 

61000 

00472 

00462 

03000 

00036 

00463 

23030 

01046 

00464 

07000 

00036 

00465 

21000 

00001 

00466 

60400 

00471 

00467 

60700 

00471 

00470 

11100 

00001 

00471 

11000 

00000 

00472 

15030 

00503 

00473 

20030 

01437 

00474 

20030 

07421 

00475 

20010 

63150 

00476 

15030 

01440 

00477 

21030 

07422 

00500 

21030 

00503 

00501 

15030 

01452 

00502 

61010 

00437 

EXIT  FROM  MOONWORK 


JD  DEC  31  1960  GNWCH  NOON 


JP  APP  25  1963  GN*CH  MOON 


vn 


O 


00514 

DAYINCRMNT 

0 

00515 

MOUNTIMt 

ENTRY 

006  6 

CL 

84 

005*/ 

ENT 

A*W(CELTIME) 

00520 

ADD 

A*W(DELTATEE)*APOS 

00521 

SUB 

A*W(KEY)*SKIP 

00522 

ENT 

84*5760 

U0523 

RSH 

AQ*30D 

00524 

DIV 

W (HOUR) 

00525 

STR 

G*W(TIME2> 

U0526 

CL 

Q 

00527 

DIV 

W (HOUR) 

00530 

LSH 

AQ*29D 

00531 

SEL 

CL*W (KEY) 

00532 

STR 

A*W (P ) 

00533 

ENT 

Q*W ( TIME2) 

00534 

MUL 

RECSIZE 

00535 

STR 

Q*A 

00536 

ADD 

A*AEPHEM+2+B4 

00537 

STR 

A*L(RAAD) 

00540 

ENT 

Q*1 

00541 

RPT 

5*ADV 

00542 

STR 

A+Q*L(RADIFAD) 

00543 

EXIT 

00544 

STATUSCK 

ENTRY 

00545 

RPL 

Y+1*L( STATUSCK) 

00546 

STR 

EPHEM*W(TAPSTAT) 

00547 

ENT 

A*U(TAPSTAT) 

00550 

RSH 

A*9D 

00551 

SEL 

CL*3 

00552 

STR 

A*W (TAPST  AT  +  1 ) 

00553 

SUB 

A*24*AN0T 

00554 

RILJP  TRYAGAIN 

00555 

SUB 

A*14*AN0T 

00556 

RILJP  L (STATUSCK ) 

00557 

SUB 

A*14*AZER0 

00560 

RILJP  BUST 

00561 

RPL 

y+i*l( imperial) 

U0562 

SUB 

a*numfiles*azero 

00563 

RILJP  TRYAGAIN 

00564 

ENT 

B4*L(M0NTHPRINT) 

00565 

ENT 

A*W(YEARPRINT+B4) 

00566 

ENT 

B4*L ( YEARMONTH) 

00567 

ADD 

A*W(M0NTHPRINT-1+S< 

00570 

STR 

A*W ( NOOAT  A2 ) 

00571 

CL 

A 

00572 

ENT 

G*NUMFILES 

00573 

DIV 

12 

00574 

ADD 

A*60 

00575 

STR 

A*U( IMPERIAL) 

00576 

STR 

s*a*azero 

00577 

ADD 

A*60 

00600 

LSH 

A*6 

00601 

ADD 

A*U( IMPERIAL) 

00602 

LSH 

A*6 

00603 

add 

A*3105000005 

00604 

STR 

A* W (NOD AT A 2+4 ) 

00605 

RIL 

00606 

RJP 

U ( INTERCOM) 

j 


00503 

00000 

00000 

00504 

61000 

noooo 

00505 

12400 

00000 

00506 

11030 

63133 

00507 

20630 

63316 

00510 

21130 

01101 

00511 

12400 

01100 

00512 

03000 

00036 

00513 

23030 

01054 

00514 

14030 

01451 

00515 

10000 

00000 

00516 

23030 

01054 

00517 

07000 

00035 

00520 

52030 

01101 

00521 

15030 

OHIO 

00522 

10030 

01451 

00523 

22000 

00010 

00524 

14040 

00000 

00525 

20004 

01455 

00526 

15010 

01443 

00527 

10000 

00001 

00530 

70100 

00005 

00531 

32010 

01444 

00532 

61010 

00504 

00533 

61000 

00000 

00534 

36010 

00533 

00535 

17670 

00624 

00536 

11020 

00624 

00537 

02000 

00011 

00540 

52000 

00003 

00541 

15030 

00625 

00542 

21500 

00024 

00543 

60100 

00044 

00544 

21500 

00014 

00545 

60110 

00533 

00546 

21400 

00014 

00547 

60100 

00602 

00550 

36010 

01441 

00551 

21400 

00014 

00552 

60100 

00044 

00553 

12410 

01032 

00554 

11034 

01070 

00555 

12410 

63147 

00556 

20034 

01031 

00557 

15030 

00635 

00560 

11000 

00000 

00561 

10000 

00014 

00562 

23000 

00012 

00563 

20000 

00060 

00564 

15020 

01441 

00565 

14440 

00000 

00566 

20000 

00060 

00567 

06000 

00006 

00570 

20020 

01441 

00571 

06000 

00006 

00572 

20030 

07423 

00573 

15030 

00641 

00574 

60000 

00000 

00575 

65020 

63426 

TAPE  IS  REWINDING 

EXIT*  STATUS  =  40 
54  =  EOF 
TAPE  ERROR 
EOF  FOUND 

SEARCH  NEXT  file 


00607 

U-TAG  N0DATA»0 

00610 

EX-FCT  EPHEM*W (REWlNDNO) 

00611 

JP 

$ 

00ol2 

JP 

L(MOONINIT) 

00613 

BUST 

ENT 

A*L { T  APSTAT+1 ) 

00614 

RSH 

AQ*3 

00615 

LSH 

A*3 

00616 

LSH 

AQ*3 

00617 

ADD 

A*6060 

00620 

STR 

A*L ( TAPEBUST 1+3) 

00621 

RJP 

U( INTERCOM) 

00622 

U-TAG  TAPEBUST*0 

00623 

EX-FCT  EPHEM*W ( REWlNDNO ) 

O0o24 

JP 

$ 

00625 

JP 

L(MOONINIT) 

00626 

TAPEBUST 

FD 

1*A 

00627 

-0 

$  +  1 

00630 

TAPEbUSTl 

fd 

4*TAPE  STATUS ( SI ) = 

00631 

-0 

-0 

00632  TAPSTAT 

+  0 

00633 

+  0 

00634 

+  0 

00635  NODATA 

FD 

1*A 

0063b 

-0 

S+l 

00637 

FO 

4*M00N  EPHEMERIS  Fl 

00640  N0DATA2 


FO  6*  OATE  NOT  AMONG  FIRST 


00641 

-0 

U0642 

INITIAL JO 

fd 

1*A 

00643 

u- 

rAG  INITI AL2*$+1 

00644 

fd 

3* JULIAN  DAY 

00645 

-0 

00646 

INITIAL2 

FD 

1*D 

00647 

-0 

INITIAL3 

00650 

INITIAL3 

0 

00651 

INITIALUAT 

FD 

1*A 

00652 

U-TAG  INITI AL11*S+1 

00653 

FD 

3*DAY  OF  YEAR 

00654 

-0 

-0 

00655 

INITIAL11 

FD 

1*D 

00656 

-0 

INITIAL12 

00657 

INITIAL12 

0 

00660 

RGHTASC 

FD 

1*A 

00661 

0 

RA1 

3G6o2 

fd 

1*D 

FILES 


0Q576 

00577 

00600 

00601 

00602 

00603 

00604 

00605 

00606 

00607 

00610 

00611 

00612 

00613 

00614 

00615 

00616 

00617 

00620 

00621 

00622 

00623 

00624 

00625 

00626 

00627 

00630 

00631 

00632 

00633 

00634 

00635 

00636 

00637 

00640 

00641 

00642 

00643 

00644 

00645 

00646 

00647 

00650 

00651 

00652 

00653 

00654 

00655 

00656 

00657 

00660 

00661 

00662 

00663 

00664 

00665 

00666 

00667 

00670 


00627 

13670 

61000 

61010 

11010 

03000 

06000 

07000 

20000 

15010 

65020 

00615 

13670 

61000 

61010 

06050 

77777 

31062 

30310 

30513 

44050 

77777 

00000 

00000 

00000 

06050 

77777 

22242 

12251 

12271 

13242 

05110 

05232 

06222 

05131 

31050 

13162 

77777 

06050 

00652 

17322 

23051 

05050 

77777 

11050 

77777 

00000 

06050 

00663 

11063 

13053 

27050 

77777 

11050 

77777 

00000 

06050 

00000 

11050 


00000 

01053 

00600 

00005 

00625 

00003 

00003 

00003 

06060 

00622 

63426 

00000 

01053 

00613 

00005 

50505 

00617 

51205 

63132 

06140 

50505 

77777 

00000 

00000 

00000 

50505 

00631 

42305 

51222 

63005 

70505 

63112 

43105 

42314 

62730 

50505 

11230 

77777 

50505 

00646 

11606 

10636 

50505 

77777 

50505 

00654 

00000 

50505 

00657 

60524 

61206 

50505 

77777 

50505 

00665 

00000 

50505 

00704 

50505 


WAIT  FOR  interrupt 

ERROR  EXIT 


WAIT  FOR  INTERRUPT 
ERROR  EXIT 


00663 

0 

RA2 

00671 

ooooo 

00710 

00664 

FD 

1*A 

00672 

06050 

50505 

U066b 

0 

RA3 

00673 

00000 

00711 

00666 

fd 

1*D 

00674 

11050 

50505 

00e>67 

0 

RA4 

00675 

ooooo 

00713 

00670 

FD 

1*A 

U0676 

06050 

50505 

00671 

0 

RA5 

00677 

OOOOO 

00714 

00672 

FD 

1*X2323 

00700 

35620 

76263 

00673 

0 

RA6 

00701 

ooooo 

00716 

00674 

fd 

1  *A 

00702 

06050 

50505 

0067b 

-0 

RA7 

00703 

77777 

00717 

00676 

RA1 

fd 

3*RIGHT  ASC 

00704 

27161 

41531 

00705 

05063 

01005 

00706 

05050 

50505 

00677 

-0 

00707 

77777 

77777 

00700 

RA2 

0 

00710 

OOOOO 

OOOOO 

00701 

RA3 

0015050000 

00711 

00150 

50000 

H (HOUR ) 

00702 

-0 

00712 

77777 

77777 

00703 

RA4 

0 

00713 

ooooo 

OOOOO 

00704 

RA5 

0022050000 

00714 

00220 

50000 

M (MIN) 

0070b 

-0 

00715 

77777 

77777 

00706 

RA6 

0 

00716 

OOOOO 

OOOOO 

00707 

RA7 

0030000000 

00717 

00300 

OOOOO 

S (SEC ) 

00710 

-0 

00720 

77777 

77777 

00711 

DLN 

FO 

1*A 

00721 

06050 

50505 

00712 

0 

DLN1 

00722 

OOOOO 

00737 

00713 

FD 

1*D 

00723 

11050 

50505 

00714 

0 

DLN2 

00724 

OOOOO 

00743 

0071b 

fd 

1*A 

00725 

06050 

50505 

u0716 

0 

DLN3 

00726 

OOOOO 

00744 

0071 7 

FD 

1*D 

00727 

11050 

50505 

00720 

0 

DLN4 

00730 

OOOOO 

00746 

00721 

fd 

1*A 

00731 

66050 

50505 

00722 

0 

DLN5 

00732 

OOOOO 

00747 

00723 

FD 

1*X2023 

00733 

35620 

76263 

U0724 

0 

DLN6 

00734 

OOOOO 

00751 

0072b 

FD 

1*A 

00735 

06050 

50505 

00726 

-0 

DLN7 

00736 

77777 

00752 

00727 

DLN1 

FD 

3*DECLINATI0N 

00737 

11121 

02116 

00740 

23063 

11624 

00741 

23050 

50505 

u0730 

-0 

00742 

77777 

77777 

00731 

OLN2 

0 

00743 

OOOOO 

OOOOO 

00732 

DLN3 

0011050000 

00744 

00110 

50000 

D(DEG) 

00733 

-0 

00745 

77777 

77777 

00734  €LN4 

0 

00746 

ooooo 

OOOOO 

00735 

0LN5 

0072050000 

00747 

00720 

50000 

(MIN) 

00736 

-0 

00750 

77777 

77777 

00737 

DLN6 

0 

00751 

OOOOO 

OOOOO 

00740 

0LN7 

0052000000 

00752 

00520 

ooooo 

(SEC) 

00741 

-0 

00753 

77777 

77777 

00742 

GMT 

FD 

1*A 

00754 

06050 

50505 

00743 

0 

GMT  1 

00755 

OOOOO 

00772 

00744 

fd 

1*D 

00756 

11050 

50505 

00745 

0 

GMT2 

00757 

OOOOO 

00776 

00746 

FD 

1*A 

00760 

06050 

50505 

00747 

0 

GMT3 

00761 

OOOOO 

00777 

00750 

FD 

1*D 

00762 

11050 

50505 

00751 

0 

GMT4 

00763 

OOOOO 

01001 

? 


\J1 

uo 


00752 

FD 

1*A 

00753 

0 

GMT5 

00754 

FD 

1*X2B23 

00755 

0 

GMT6 

00756 

fd 

1*A 

00757 

-0 

GMT7 

00760  GMT1 

FO 

3*UNIVERSAL  TIME 

00761 

-0 

00762  GMT 2 

0 

00763  6MT3 
00764 

00765  GMT4 
00766  GMT5 
00767 

00770  GMT6 
00771  GMT7 


0015050000 

-0 

0 

0022050000 

-0 

0 

0030000000 


00772 

-0 

00773 

INITIALDIS 

FD 

1*A 

00774 

U-TAG 

;  INITIAL17*$+1 

00775 

FD 

3*DISTANCE(E.R.) 

00776 

-0 

00777 

INITIAL17 

FD 

1*X6B22 

01000 

-0 

INITIAL16 

01001 

INITIAL18 

0 

01002 

INITIALBOD 

FD 

1*A 

01003 

U-TAG  INITIAL20*$*1 

01004 

FD 

3W0BJECT 

01005 

-0 

01006 

INITIAL20 

FD 

1*A 

01007 

-0 

$+1 

01010 

FO 

0*M00N 

01011 

-0 

01012 

MONTHPRINT 

0061000000 

01013 

01014 

01015 

01016 

01017 

01020 

01021 

01022 

01023 

01024 

01025 

01026  HALFDAY 
01027  REVSRAOl AN 
01030  SRHIBIN 


0062000000 
0063000000 
0064000000 
0065000000 
0066000000 
0067000000 
0070000000 
0071000000 
6160000000 
6161000000 
6162000000 
1000000000 
2427630155 
56000  EPHEMTAPE 


01031  IGNORE 
01032  INTERUPT 
01033 

01034  REwINDNU 


6000000000 
RJP  STATUSCK 

COMMENT  SEE  MOON  WRITEUP 
ON  OF  FOLLOWING  CONSTANTS 
30100  EPHEMTAPE 


00764 

06050 

50505 

00765 

00000 

01002 

00766 

35620 

76263 

00767 

00000 

01004 

00770 

06050 

50505 

00771 

77777 

01005 

00772 

32231 

63312 

00773 

27300 

62105 

00774 

31162 

21205 

00775 

77777 

77777 

00776 

00000 

00000 

00777 

00150 

50000 

H (HOUR  > 

01000 

77777 

77777 

01001 

00000 

00000 

01002 

00220 

50000 

M(MIN) 

01003 

77777 

77777 

01004 

00000 

00000 

01005 

00300 

OOOOO 

SCSEC) 

01006 

77777 

77777 

01007 

06050 

50505 

01010 

01015 

01011 

01011 

11163 

03106 

01012 

23101 

25112 

01013 

75277 

54005 

01014 

77777 

77777 

01015 

35660 

76262 

01016 

77777 

01017 

01017 

00000 

OOOOO 

01020 

06050 

50505 

01021 

01026 

01022 

01022 

24071 

71210 

01023 

31050 

50505 

01024 

05050 

50505 

01025 

77777 

77777 

01026 

06050 

50505 

01027 

77777 

01030 

01030 

22242 

42300 

01031 

77777 

77777 

01032 

00610 

OOOOO 

01033 

00620 

OOOOO 

01034 

00630 

OOOOO 

01035 

00640 

OOOOO 

01036 

00650 

OOOOO 

01037 

00660 

OOOOO 

01040 

00670 

OOOOO 

01041 

00700 

OOOOO 

01042 

00710 

OOOOO 

01043 

61600 

OOOOO 

01044 

61610 

OOOOO 

01045 

61620 

OOOOO 

01046 

10000 

OOOOO 

01047 

24276 

30155 

.636619772829  2/PI 

01050 

56000 

00002 

SEARCH  EPHEMERIS  TAPE  HD*8IN  W 
/I 

01051 

60000 

OOOOO 

01052 

65000 

00533 

DESCRIPTI 

01053 

30100 

00002 

REWIND  EPHEMERIS  TAPE  W/INTEPR 

01035 

HOUR 

0052525253 

01036 

SRAD 

3266677130 

01037 

HRAD 

1030124434 

01040 

MINSRAD 

2167643242 

01041 

HDAY 

1252525252 

01042 

MDAY 

2660266026 

01043 

SUAY 

2506000000 

01044 

SECSRAD 

2304045527 

U1045 

SARAD 

3113343163 

01046 

ERNMSEC 

0 

01047 

RHRSEC 

2215053170 

01050 

TtoOPIE 

3110375524 

01051 

COMMENT  INCLUDES  19ol 

01052 

YEARPRINT 

0000746661 

01053 

0000746662 

01054 

0000746663 

01055 

0000746664 

0105b 

0000746665 

01057 

0000746666 

01060 

0000746667 

01061 

0000746670 

01062 

0000746671 

01063 

KEY 

4000000000 

01064 

F1RSTDIFF 

0 

01065 

BETA 

0 

01066 

GAMMA 

0 

01067 

DELTA 

0 

01070 

EPSILON 

0 

01071 

FUNCTION 

0 

01072 

P 

0 

01073 

HALF 

2000000000 

01074 

DMINB 

0 

01075 

DMIN2CPLB 

0 

01076 

EP2BM2UMA 

0 

01077 

BESSEL 

0 

01100 

0 

01101 

0 

01102 

0 

01103 

0 

01104 

PSQMP 

0 

01105 

PSQMP6 

0 

01106 

THIRD 

1252525252 

01107 

SIXTH 

0525252525 

OHIO 

KENNEDY 

0 

01111 

numderiv 

0 

01112 

FBESSEL 

0 

01113 

0 

01114 

0 

01115 

0 

01116 

0  • 

01117 

SETINTAD 

0 

01120 

INTERPOL 

ENTRY 

01121 

SUB  A*RECSIZE 

01122 

SUB  A*RECSIZE 

01123 

ENT  B3*A 

01124 

PUT  W (B3) (FIRSTDIFF) 

01125 

ENT  B3*RECSIZE+B3 

UP 


01054 

00525 

25253 

Ill8481ie0 

01055 

32666 

77130 

13750. 98708B15 

43200/PI 

01056 

10301 

24434 

•2617993878B29 

PI/12 

01057 

21676 

43242 

.558505361029 

PI/720  AT 

B36 

01060 

12525 

25252 

.333333333629 

1/24  AT  R32 

01061 

26602 

66026 

.711111111029 

1/1440  AT 

B39 

01062 

25060 

OOOOO 

86400. 000B12 

01063 

23040 

45527 

.595739051B29 

PI/43P00  i 

AT  B4? 

01064 

31133 

43163 

206264. R062B11 

64800/PI 

01065 

00000 

OOOOO 

01066 

22150 

53170 

.56P8888R9B29 

1/3600  AT 

B40 

01067 

31103 

75524 

6.283185306026 

2*PI 

01070 

00007 

46661 

01071 

00007 

46662 

01072 

00007 

46663 

01073 

00007 

46664 

01074 

00007 

46665 

01075 

00007 

46666 

01076 

00007 

46667 

01077 

00007 

46670 

oiioo 

00007 

46671 

01101 

40000 

OOOOO 

01102 

00000 

OOOOO 

01103 

00000 

OOOOO 

01104 

00000 

OOOOO 

01105 

00000 

OOOOO 

01106 

ooooo 

OOOOO 

01107 

ooooo 

OOOOO 

OHIO 

ooooo 

ooooo 

01111 

20000 

ooooo 

01112 

ooooo 

ooooo 

01113 

ooooo 

ooooo 

01114 

ooooo 

ooooo 

01115 

ooooo 

ooooo 

01116 

ooooo 

ooooo 

01117 

ooooo 

ooooo 

01120 

ooooo 

ooooo 

01121 

ooooo 

ooooo 

01122 

ooooo 

ooooo 

01123 

ooooo 

ooooo 

01124 

12525 

25252 

.3^3333333629 

1/3 

01125 

05252 

52525 

. 166666667629 

1/6 

01126 

ooooo 

ooooo 

01127 

ooooo 

ooooo 

01130 

ooooo 

ooooo 

01131 

ooooo 

ooooo 

01132 

ooooo 

ooooo 

01133 

ooooo 

ooooo 

01134 

ooooo 

ooooo 

01135 

ooooo 

ooooo 

01136 

61000 

ooooo 

01137 

21000 

00010 

01140 

21000 

00010 

01141 

12370 

ooooo 

01142 

10033 

ooooo 

01143 

14030 

01102 

01144 

12303 

00010 

VJ1 

\J1 


01126 

PUT 

Jl  127 

ENT 

0 1130 

PUT 

01131 

ENT 

01132 

PUT 

01133 

ENT 

01134 

PUT 

01135 

ENT 

oll3o 

SUB 

01137 

STR 

01140 

ADD 

01141 

STR 

01142 

ENT 

01143 

ADD 

01144 

SUB 

01145 

SUB 

01146 

STR 

01147 

ENT 

01150 

SUB 

01151 

SUB 

01152 

STR 

01153 

ENT 

01154 

MUL 

01155 

LSH 

01156 

STR 

01157 

STR 

U 1160 

LSH 

01161 

RSH 

01162  ST0R1 

STR 

0llo3 

STR 

01164 

ENT 

01165 

MUL 

01166 

LSH 

Ul  167 

RJP 

01170 

SUB 

01171 

STR 

01172 

RSH 

01173 

MUL 

01174 

RSH 

01175 

STR 

01176 

LSH 

01177 

RSH 

01200  ST0R2 

STR 

01201 

ENT 

01202 

RSH 

01203 

DIV 

U1204  REMAINDER 

JP 

01205 

ado 

01206 

SUB 

01207 

JP 

01210  CIVIL 

SUB 

01211 

ado 

01212  LINCOLN 

STR 

01213 

ENT 

01214 

SUB 

W (03) *w (BETA) 

B3*RECSIZE+B3 
W (03 ) *W ( GAMMA ) 

B3*RECSIZE*b3 

W(03)*W(DELTA) 

B3*RECSIZE+B3 
(B3) *W  (EPSILON) 

A*W(DELTA) 

A*# (BETA) 

A*W (DMINB) 

A*W (DMINB) 

A*W (BESSEL) 

A*W (DELTA) 
A*W(BETA) 

A*W ( GAMMA ) 
A*W(GAMMA) 

A*W (DMIN2CPLB) 
A*W (EPSILON) 

A*W ( FIRSTDIFF ) 
A*W(BESSEL) 

A*W (EP2BM2DMA) 
Q*W(P) 

W (GAMMA) 

AQ*1 

A*W (BESSEL+1 ) 

A*W (BESSEL) 

A*1 

AQ*1 

G*W(FBESSEL) 

Q*W (FBESSEL+1 ) 
Q*W ( P ) 

W(P) 

AQ*  1 
ROUND 
A*W (p ) 

A*W (PSQMP) 

AQ*30D 
#r  (DMINB) 

AQ*  1 

A*W (BESSEL+2 ) 

A*  1 
AQ*  1 

G*W (FBESSEL+2) 

A* W ( PSQMP ) 

AQ*30D 
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C I VIL*QPOS 

A*3*AP0S 

Q*i 

LINCOLN 
A*3*ANEG 
Q*  1 

Q*W (PSQMP6) 
Q*W(P) 

Q*W(HALF) 


01145 

10033 

00000 

01146 

14030 

01103 

01147 

12303 

00010 

01150 

10033 

00000 

01151 

14030 

01104 

01152 

12303 

00010 

01153 

10033 

00000 

01154 

14030 

01105 

01155 

12303 

00010 

01156 

10033 

00000 

01157 

14030 

01106 

01160 

11030 

01105 

01161 

21030 

01103 

01162 

15030 

01112 

01163 

20030 

01112 

01164 

15030 

01115 

01165 

11030 

01105 

01166 

20030 

01103 

01167 

21030 

01104 

01170 

21030 

01104 

01171 

15030 

01113 

01172 

11030 

01106 

01173 

21030 

01102 

01174 

21030 

01115 

01175 

15030 

01114 

01176 

10030 

OHIO 

01177 

22030 

01104 

01200 

07000 

00001 

01201 

15030 

01116 

01202 

15030 

01115 

01203 

06000 

00001 

01204 

03000 

00001 

01205 

14030 

01130 

01206 

14030 

01131 

01207 

10030 

OHIO 

01210 

22030 

OHIO 

01211 

07000 

00001 

01212 

65000 

01426 

01213 

21030 

OHIO 

01214 

15030 

01122 

01215 

03000 

00036 

01216 

22030 

01112 

01217 

03000 

00001 

01220 

15030 

01117 

01221 

06000 

00001 

01222 

03000 

00001 

01223 

14030 

01132 

01224 

11030 

01122 

01225 

03000 

00036 

01226 

23000 

00006 

01227 

60200 

01233 

01230 

20600 

00003 

01231 

27000 

00001 

01232 

61000 

01235 

01233 

21700 

00003 

01234 

26000 

00001 

01235 

14030 

01123 

01236 

10030 

OHIO 

01237 

27030 

01111 

01215 

MUL 

W (PSQMP6 ) 

01240 

22030 

01123 

01216 

LSH 

AG*  1 

01241 

07000 

00001 

01217 

RJP 

ROUND 

01242 

65000 

01426 

01220 

ENT 

Q*A 

01243 

10070 

00000 

01221 

MUL 

W (DMIN2CPL8 ) 

01244 

22030 

01113 

01222 

LSH 

AQ*1 

01245 

07000 

00001 

01223 

STR 

A*W (0ESSEL+3) 

01246 

15030 

01120 

01224 

LSH 

A*1 

01247 

06000 

00001 

01225 

RSH 

AQ*1 

01250 

03000 

00001 

01226 

ST0R3 

STR 

Q*w (F3ESSEL+3 ) 

01251 

14030 

01133 

01227 

ENT 

Q*W (PSQMP6) 

01252 

10030 

01123 

01230 

SUB 

Q*W ( THIRD) 

01253 

27030 

01124 

01231 

MUL 

W(PSQMP) 

01254 

22030 

01122 

01232 

LSH 

AQ*1 

01255 

07000 

00001 

01233 

RJP 

ROUND 

01256 

65000 

01426 

01234 

ENT 

Q*A 

01257 

10070 

00000 

01235 

MUL 

W(EP28M2DMA) 

01260 

22030 

01114 

01236 

RSH 

AQ*2 

01261 

03000 

00002 

01237 

STR 

A*W(B£SSEL+4) 

01262 

15030 

01121 

01240 

LSH 

A*1 

01263 

06000 

00001 

01241 

RSH 

AQ*  1 

01264 

03000 

00001 

01242 

ST0R4 

STR 

Q*W(FBESSEL+4) 

01265 

14030 

01134 

01243 

ENT 

A*W (F0LSSEL ) 

01266 

11030 

01130 

01244 

SEL 

CP*W (FBESSEL+2) 

01267 

51030 

01132 

01245 

JP 

FL0TEST1*AP0S 

01270 

60600 

01340 

01246 

N0FL01 

ENT 

Q*W(BESSEL+2) 

01271 

10030 

01117 

01247 

FIX1 

RPL 

Y+Q*W (BESSEL) 

01272 

34030 

01115 

01250 

ENT 

A*W (FBESSEL+2 ) 

01273 

11030 

01132 

01251 

RPL 

A+Y*W(FBESSEL) 

01274 

24030 

01130 

01252 

SEL 

CP*W (FBESSEL+3) 

01275 

51030 

01133 

01253 

JP 

FL0TEST2*AP0S 

01276 

60600 

01362 

01254 

N0FL02 

ENT 

Q*W ( BESSEL+3 ) 

01277 

10030 

01120 

01255 

F 1X2 

RPL 

Y+Q*W( BESSEL) 

01300 

34030 

01115 

01256 

ENT 

A*W(FBESSEL*3) 

01301 

11030 

01133 

01257 

RPL 

A+Y*W(F8ESSEL) 

01302 

24030 

01130 

01260 

SEL 

CP*W (FBESSEL+4) 

01303 

51030 

01134 

01261 

JP 

FL0TEST3*AP0S 

01304 

60600 

01404 

01262 

N0FL03 

ENT 

Q*W(BESSEL+4) 

01305 

10030 

01121 

01263 

FIX3 

RPL 

Y+Q*W (BESSEL) 

01306 

34030 

01115 

01264 

ENT 

A*W ( FBESSEL+4 ) 

01307 

11030 

01134 

01265 

RPL 

A+Y+W (FBESSEL ) 

01310 

24030 

01130 

012to6 

ENT 

Q*W ( P ) 

01311 

10030 

OHIO 

01267 

SUB 

Q*W (HALF ) 

01312 

27030 

01111 

01270 

MUL 

W(DMINB) 

01313 

22030 

01112 

U1271 

RJP 

ROUND 

01314 

65000 

01426 

01272 

STR 

A*W(KENNEDY) 

01315 

15030 

01126 

01273 

ENT 

Q*W ( PSQMP ) 

01316 

10030 

01122 

01274 

ADD 

G*W ( SIXTH) 

01317 

26030 

01125 

01275 

MUL 

w (0MIN2CPLB) 

01320 

22030 

01113 

01276 

RJP 

ROUND 

01321 

65000 

01426 

01277 

ADD 

A*W(KENNEDY) 

01322 

20030 

01126 

01300 

ADD 

A*W(GAMMA) 

01323 

20030 

01104 

0 1501 

STR 

A*W(NUMDERIV) 

01324 

15030 

01127 

U1302 

ENT 

A*rf(FBESSEL)*ANEG 

01325 

11730 

01130 

01303 

JP 

PLUS 

01326 

61000 

01333 

01304 

MINUS 

LSH 

A*1*AP0S 

01327 

06600 

00001 

01305 

ENT 

A*W(0ESSEL)*SKIP 

01330 

11130 

01115 

01306 

RPL 

Y-1*W(BESSEL) 

01331 

37030 

01115 

01307 

JP 

SUM 

01332 

61000 

01336 

01310  PLUS 

LSH 

A*1*ANEG 

01311 

ENT 

A*W(BESSEL)*SKIP 

01312 

RPL 

Y+1*W( BESSEL) 

01313  SUM 

add 

A*W ( 0*B4) 

01314 

EXIT 

01315  FL0TEST1 

ENT 

A*W(FBESSEL) *ANEG 

01316 

ADD 

A*W(FBESSEL*2)*SKIP 

01317 

JP 

bothnegi 

01320 

JP 

N0FL01*AP0S 

01321 

SEL 

CL*irf  (KEY) 

01322 

STR 

A*lrf(FBESSEL) 

01323 

ENT 

Q*W(BESSEL*2) 

01324 

ADD 

Q*1 

01325 

RPL 

Y*Q*W(BESSEL) 

01326 

JP 

FIX1+3 

01327  B0THNEG1 

ADD 

A*W(FBESSEL*2) 

01330 

JP 

N0FL01*ANEG 

01331 

SEL 

SET*W(KEY) 

01332 

STR 

A*W (FBESSEL) 

01333 

ENT 

Q*W (BESSEL*2) 

01334 

SUB 

Q*1 

01335 

RPL 

Y*Q*rf(BESSEL) 

01336 

JP 

FIX1+3 

01337  FL0TEST2 

ENT 

A*W ( FBESSEL ) *ANEG 

01340 

ADO 

A*W(FBESSEL*3) ♦SKIP 

01341 

JP 

B0THNEG2 

01342 

JP 

NOFL02*APOS 

01343 

SEL 

CL*W(KEY) 

01344 

STR 

A*W(F8ESSEL) 

01345 

ENT 

Q*to (BESSEL*3) 

01346 

ADD 

Q*1 

01347 

RPL 

Y*Q*W (BESSEL) 

01350 

JP 

FIX2*3 

01351  B0THNEG2 

add 

A*W (FBESSEL*3) 

01352 

JP 

N0FL02*ANEG 

01353 

SEL 

SET*W(KEY) 

01354 

STR 

A*W (FBESSEL) 

01355 

ENT 

Q*W ( BESSEL*3) 

01356 

SUB 

0*1 

01357 

RPL 

Y*Q*W(BESSEL) 

01360 

JP 

FIX2*3 

01361  FL0TEST3 

ENT 

A*W(FBESSEL)*ANEo 

01362 

ADO 

A*W ( FBESSEL+4 ) *SK I P 

01363 

JP 

B0THNEG3 

01364 

JP 

N0FL03*AP0S 

01365 

SEL 

CL*W (KEY ) 

01366 

STR 

A*W (FBESSEL) 

01367 

ENT 

Q*W(BESSEL+4) 

01370 

ADO 

0*1 

01371 

RPL 

Y+Q*W( BESSEL) 

01372 

JP 

F 1X3*3 

01373  B0THNEG3 

ADO 

A*W (FBESSEL* 4) 

01374 

JP 

N0FL03*ANEG 

01375 

SEL 

SET*W(KEY) 

Q137o 

STR 

A*^(FBESSEL) 

01377 

ENT 

Q*W(BESSEL*4) 

01400 

SUB 

Q*1 

01401 

RPL 

Y*Q*W(BESSEL) 

01402 

JP 

FIX3+3 

01333 

06700 

OOOOl 

01334 

11130 

01115 

01335 

36030 

01115 

01336 

20034 

OOOOO 

01337 

61010 

01136 

01340 

11730 

01130 

01341 

20130 

01132 

01342 

61000 

01352 

01343 

60600 

01271 

01344 

52030 

01101 

01345 

15030 

01130 

01346 

10030 

01117 

01347 

26000 

OOOOl 

01350 

34030 

01115 

01351 

61000 

01275 

01352 

20030 

01132 

01353 

60700 

01271 

01354 

50030 

01101 

01355 

15030 

01130 

01356 

10030 

01117 

01357 

27000 

OOOOl 

01360 

34030 

01115 

01361 

61000 

01275 

01362 

11730 

01130 

01363 

20130 

01133 

01364 

61000 

01374 

01365 

60600 

01277 

01366 

52030 

01101 

013o7 

15030 

01130 

01370 

10030 

01120 

01371 

26000 

OOOOl 

01372 

34030 

91115 

01373 

61000 

01303 

01374 

20030 

01133 

01375 

60700 

01277 

01376 

50030 

01101 

01377 

15030 

01130 

01400 

10030 

01120 

01401 

27000 

OOOOl 

01402 

34030 

01115 

01403 

61000 

01303 

01404 

11730 

01130 

01405 

20130 

01134 

01406 

61000 

01416 

01407 

60600 

01305 

01410 

52030 

01101 

01411 

15030 

01130 

01412 

10030 

01121 

01413 

26000 

OOOOl 

01414 

34030 

01115 

01415 

61000 

01311 

01416 

20030 

01134 

01417 

60700 

01305 

01420 

50030 

01101 

01421 

15030 

01130 

01422 

10030 

01121 

01423 

27000 

OOOOl 

01424 

34030 

01115 

01425 

61000 

01311 

EXIT  FROM  INTFRPOL 


vn 

OD 


01403 

COMMENT 

01404 

ROUND 

ENTRY 

01405 

jp  $+4*ANEG 

0140b 

EXIT  QPOS 

01407 

ADO  A*1 

01410 

EXIT 

01411 

EXIT  QNEG 

01412 

SUB  A*1 

01413 

EXIT 

01414 

COMMENT 

01415 

YRREMAIn 

0 

01416 

WHOLEYEAR 

0 

01417 

JUL1ANDAY 

0 

01420 

imperial 

0 

01421 

TAPE8L0CK 

0 

01422 

RAAD 

0 

01423 

RAOIFAD 

0 

01424 

DECAD 

0 

01425 

DECDIFAD 

0 

01426 

DI5TAD 

0 

01427 

distdifad 

0 

01430 

TIME2 

0 

01431 

SAFE 

0 

01432 

AEPHEM 

RESERVE 

1151D 

01433 

lastephem 

0 

01434 

EPHEMA 

U-TAG 

AEPHEM+191D*AEPHEM 

01435 

EPHEMB 

U-TAG 

AEPHEM+383D*AFPHEM+1920 

01436 

EPHEMC 

U-TAG 

AEPHEM+575D*AEPHEM+384D 

01437 

EPHEMD 

U-TAG 

AEPHEM+767D*AEPHEM+576D 

01440 

EPHEME 

U-TAG 

AEPHEM+959D*AEPHEM+768D 

01441 

EPHEMF 

U-TAG 

AEPHEM+1 151 J*AEPHEM+ 9600 

01442 

TAPESEARCH 

15  0 

01443 

COMMENT 

01444 

COMMENT 

...SUBROUTINE  1... 

01445 

COMMENT 

01446 

COMMENT 

CHECK  FOR  OFFSET 

01447 

COMMENT 

IF  SO-WHICH  INPUT 

01450 

COMMENT 

CALCULATE  POSITION 

01451 

COMMENT 

INITIALLY  ONLY 

01452 

MXINIT 

ENTRY 

01453 

RJP  Ut INTERCOM) 

01454 

U-TAG 

MKMESOO*MKMESIO 

01455 

ENT  A+W(MOONSW*)*ANOT 

01456 

EXIT 

01457 

RJP  U( INTERCOM) 

01460 

U-TAG 

MKMES01*MKMESI1 

01461 

ENT  A*L (MKSWlTCH) ♦AZERO 

01462 

SUB  A*1 

01463 

STR  A*W (MKPOSSW ) 

01464 

ENT  *B7*A 

01465 

RJP  LCMXINTAB+B7) 

01466 

PUT  5«W (MKDELAYCNT) 

01467 

EXIT 

01470 

MXINTAB 

0  MXlNPOSA 

01471 

0  MXINPOSB 

01472 

0  MXINPOSC 

01426 

61000 

OOOOO 

01427 

60700 

01433 

01430 

60210 

01426 

01431 

2000U 

00001 

01432 

61010 

01426 

01433 

60310 

01426 

01434 

21000 

00001 

01435 

61010 

01426 

01436 

ooooo 

OOOOO 

01437 

00000 

OOOOO 

01440 

ooooo 

OOOOO 

01441 

ooooo 

OOOOO 

01442 

ooooo 

OOOOO 

01443 

ooooo 

ooooo 

01444 

ooooo 

ooooo 

01445 

ooooo 

ooooo 

01446 

ooooo 

ooooo 

01447 

ooooo 

ooooo 

01450 

ooooo 

ooooo 

01451 

ooooo 

ooooo 

01452 

ooooo 

ooooo 

01453 

ooooo 

ooooo 

03652 

ooooo 

ooooo 

03653 

01752 

01453 

03654 

02252 

01753 

03655 

02552 

02253 

03656 

03052 

02553 

03657 

03352 

03053 

03660 

03652 

03353 

03661 

00015 

OOOOO  15  =  TAPE  ID  FOR  MOON 

03662 

610U0 

OOOOO 

03663 

65020 

63426 

03664 

07063 

07071 

03665 

11530 

63343 

03666 

61010 

03662 

NO  OFFSET-  OUT 

03667 

65020 

63426 

03670 

07073 

07111 

DETERMINE 

a*b*c.d  calculations 

03671 

11410 

07115 

03672 

21000 

00001 

03673 

15030 

06656 

MKPOSSW  = 

0  *  1  *  2  *  3 

03674 

12770 

OOOOO 

03675 

65017 

03701 

03676 

10000 

00005 

03677 

14030 

07022 

03700 

61010 

03662 

EXIT  FROM 
N 

OFFSFT  INITIALIZATIO 

03701 

OOOOO 

03705 

03702 

OOOOO 

03761 

03703 

OOOOO 

04026 

t 


VJ1 

VO 


J1473 

0 

MXINPOSD 

03704 

00000 

04073 

U1474 

COMMENT 

01475 

comment  ...SUBROUTINE  2... 

01476 

COMMENT 

01477 

COMMENT  INPUT  TYPE  A 

01500 

COMMENT  SELEN  LONG  AND  LAT 

01501 

COMMENT  INPUT  =  LAT(BtTA) » LONG (LAMBDA ) 

01502 

COMMENT  CALCULATE  X < S> r Y (S) > Z (S) 

01503 

COMMENT 

01504  MXINPOSA 

ENTRY 

03705 

61000 

00000 

01505 

RJP 

u( intercom) 

03706 

65020 

63426 

GET  BETA 

01506 

U-TAG  MKMES02*MKMESI2 

03707 

07023 

07027 

01507 

RJP 

U( INTERCOM) 

03710 

65020 

63426 

GET  LAMBDA 

01510 

U-TAG  MKMES03*MKMESI3 

03711 

07033 

07037 

01511 

ENT 

Q*W ( MKRADDEG) 

03712 

10030 

06636 

RAD/DEG  B29 

01512 

MUL 

W(MKINBETA) 

03713 

22030 

06662 

B20 

01513 

LSH 

AQ*8D 

03714 

07000 

00010 

A=B49 

01514 

RJP 

ROUND 

03715 

65000 

01426 

01515 

STR 

A*W (MKBETA) 

03716 

15030 

06664 

B=27 

01516 

ENT 

Q*W(MKRADDEG) 

03717 

10030 

06636 

B29 

01517 

MUL 

w (MKINLAMBDA) 

03720 

22030 

06663 

B20 

01520 

LSH 

AQ*8D 

03721 

07000 

00010 

A=B49 

01521 

RJP 

ROUND 

03722 

65000 

01426 

01522 

STR 

A*W( MKLAMBDA) 

03723 

15030 

06665 

B=27 

01523 

ENT 

A*W ( MKBETA) 

03724 

11030 

06664 

B27 

01524 

ENT 

Q*27D 

03725 

10000 

00033 

01525 

RJP 

SINX 

03726 

65000 

06354 

01526 

STR 

A*W ( MKSINB ) 

03727 

15030 

06666 

SIN(BETA)  828 

01527 

ENT 

A*W (MKLAMBDA) 

03730 

11030 

06665 

01530 

ENT 

Q*27D 

03731 

10000 

00033 

01531 

RJP 

SINX 

03732 

65000 

06354 

01532 

STR 

A*W ( MKSINL) 

03733 

15030 

06670 

B28 

01533 

ENT 

A*W< MKBETA) 

03734 

11030 

06664 

01534 

ENT 

Q*27D 

03735 

10000 

00033 

01535 

RJP 

COSX 

03736 

65000 

06343 

01536 

STR 

A*W (MKCOSB) 

03737 

15030 

06667 

B28 

01537 

ENT 

A*W (MKLAMBDA) 

03740 

11030 

06665 

01540 

ENT 

G*27D 

03741 

10000 

00033 

01541 

RJP 

COSX 

03742 

65000 

06343 

01542 

STR 

A*fc ( MKCOSL) 

03743 

15030 

06671 

B28 

01543 

ENT 

Q*W( MKCOSB) 

03744 

10030 

06667 

X(S)  =  COSB 

X 

01544 

MUL 

W (MKSINL) 

03745 

22030 

06670 

B28 

01545 

LSH 

AQ*2 

03746 

07000 

00002 

A-B56 

01546 

RJP 

ROUND 

03747 

65000 

01426 

01547 

STR 

A*W ( MKXS ) 

03750 

15030 

06547 

B=28 

01550 

ENT 

Q*W (MKSINB) 

03751 

10030 

06666 

Y(S)  =  S  IN 

B 

01551 

STR 

Q*W ( MKYS) 

03752 

14030 

06550 

B28 

01552 

ENT 

Q*W ( MKCOSB ) 

03753 

10030 

06667 

Z(S)  =  COSL 

X 

01553 

MUL 

W(MKCOSL) 

03754 

22030 

06671 

X 

01554 

LSH 

AQ*2 

03755 

07000 

00002 

X 

01555 

RJP 

ROUND 

03756 

65000 

01426 

X 

01556 

STR 

A*W ( MK2S) 

03757 

15030 

06551 

B28 

01557 

EXIT 

03760 

61010 

03705 

01560 

COMMENT 

01561 

COMMENT  ...SUBROUTINE  3... 

01562 

comment 

01563 

COMMENT  INPUT  TYPE  8 

01564 

COMMENT  SELEN  DIRECTION  COSINES 

SINL  B28 


COSB 


01565  COMMENT  INPUT  =  X(S>*Y<S> 

01566  COMMENT  CALCULATE  Z<S) 

01567  MXINPOSB  ENTRY 


01570 

01571 

01572 

01573 

01574 

01575 

01576 

01577 

01600 

01601 

01602 

01603 

01604 

01605 

0 160t> 

01607 

01610 

Ololl 

01612 

01613 

01614 

0161b 

01616 

01617 

01620 

01621 

01622 

01623 

01624 

0162b 

01626 

01627 

01630 

01631 

01632 

01633 

01634 

01635 

01636 

01637 

01640 


COMMENT  GET  X(S)  AT  B28 
RJP  U( INTERCOM) 

U-TAG  MKMES04+MKMESI4 
ENT  Q  +  W ( MKXS) 

MUL  W (MKXS) 

LSH  AQ+2+QP0S 
ADD  A*1 

COM  A*W (MK0NE28) ♦YMORE 
ENT  A*W (MK0NE28) 

STR  A  +  W (MKXS2) 

ENT  A*W (MK0NE28) 

SUB  A*W(MKXS2)+AP0S 
CL  A 

COM  A*W(MK0NE28)*YM0RE 
ENT  A*W (MK0NE28) +  SKIP 
RJP  SORT 

STR  A*W ( YSLIMIT+1 ) 

STR  A*CPW(YSLIMIT) 

COMMENT  GET  Y(S)  AT  B28 
RJP  U( INTERCOM) 

U-TAG  MKMES05+MKMESI5 
ENT  Q  +  W (MKYS) 

MUL  W (MKYS) 

LSH  AQ+2+QP0S 
ADD  A*1 

COM  A*W (MK0NE28) * YMORE 
ENT  A*W (MK0NE28) 

STR  A+W(MKYS2) 

ENT  A  +  W (MK0NE26) 

SUB  A*W ( MKXS2) 

SUB  A+W (MKYS2) *APOS 
CL  A 

STR  A*W (MKZS2) 

COM  A*W (MK0NE28) * YMORE 
ENT  A+W (MK0NE28) +SKIP 
RJP  SORT 
STR  A*W(MKZS) 

EXIT 

COMMENT 

COMMENT  ...SUBROUTINE  4... 
COMMENT 


01641 

01642 

01643 

01644 

01645 

01646  MX1NP0SC 

01647 

01650 

01651 

01652 

01653 

01654 

01655 

01656 


COMMENT  INPUT  TYPE  C 
COMMENT  OBSERVER  COORDINATES 
COMMENT  INPUT  =  X(0)»Y(0) 
COMMENT  CALCULATE  Z(0) 
COMMENT 
ENTRY 

COMMENT  GET  X ( 0 )  AT  B28 
RJP  U( INTERCOM) 

U-TAG  MKMES06+MKMESI6 
ENT  Q  +  W ( MKXO ) 

MUL  W (MKXO) 

LSH  AQ+2+QP0S 
ADD  A*1 

COM  A*W (MK0NE28) +YMORE 


03761 

61000 

00000 

METHOD  2  FOR  DETERMINE  XS#  YS» 
Z 

03762 

65020 

63426 

GET  INPUT  PARAMETERS 

03763 

07043 

07047 

03764 

10030 

06547 

B28 

03765 

22030 

06547 

B28 

03766 

07200 

00002 

AT  B58 

03767 

20000 

00001 

ROUND  OFF 

03770 

04730 

06627 

03771 

11030 

06627 

1.0  AT  B28 

03772 

15030 

06672 

X (S) **2 

03773 

11030 

06627 

1.0  AT  B28 

03774 

21630 

06672 

1-X++2  AT  B28 

03775 

11000 

00000 

03776 

04730 

06627 

03777 

11130 

06627 

1.0  AT  B28 

04000 

65000 

06441 

AT  B28 

04001 

15030 

07062 

STORE  UPPER  LIMIT 

04002 

15070 

07061 

STORE  LOWER  LIMIT 

04003 

65020 

63426 

04004 

07053 

07057 

04005 

10030 

06550 

B28 

04006 

22030 

06550 

B28 

04007 

07200 

00002 

AT  B58 

04010 

20000 

00001 

ROUND  OFF 

04011 

04730 

06627 

04012 

11030 

06627 

1.0  AT  B28 

04013 

15030 

06673 

Y (S) **2 

04014 

11030 

06627 

1  ( B28) 

04015 

21030 

06672 

04016 

21630 

06673 

1-X**2-Y**2 

04017 

11000 

00000 

04020 

15030 

06674 

Z(S)  **2  (B28) 

04021 

04730 

06627 

04022 

11130 

06627 

1.0  AT  B28 

04023 

65000 

06441 

AT  B28 

04024 

15030 

06551 

Z(S)  AT  B28 

04025 

61010 

03761 

04026 

61000 

00000 

04027 

65020 

63426 

04030 

07116 

07122 

04031 

10030 

06544 

B28 

04032 

22030 

06544 

B28 

04033 

07200 

00002 

AT  B58 

04034 

20000 

00001 

ROUND  OFF 

04035 

04730 

06627 

i 


01657 

ENT 

A*W(MK0NE28> 

01660 

STR 

A*W ( MKX02 ) 

01661 

ENT 

A*W (MK0NE28) 

01662 

SUB 

A*W(MKX02)*AP0S 

01663 

CL 

A 

01664 

COM 

A*W(MK0NE28)*YM0RE 

01665 

ENT 

A*W (MK0NE28) *SKIP 

01666 

RJP 

SORT 

01667 

STR 

A*W ( YOLIMIT+1 ) 

01670 

STR 

A*CPW (YOLIMIT) 

01671 

COMMENT  GET  Y(0)  AT  B26 

01672 

RJP 

U( INTERCOM) 

01673 

U-TAG  MKMES07*MKMESI7 

01674 

ENT 

Q*W (MKYO ) 

01675 

MUL 

W(MKYO) 

01676 

LSH 

AQ*2*QP0S 

01677 

add 

A*1 

01700 

COM 

A*W (MK0NE28) *YMORE 

01701 

ENT 

A*W (MK0NE28) 

01702 

STR 

A*W(MKY02> 

01703 

ENT 

A*W ( MK0NE28) 

01704 

SUB 

A*W ( MKX02 ) 

01705 

SUB 

A*W  ( MKY02) *APOS 

01706 

CL 

A 

01707 

STR 

A*W ( MKZ02) 

01710 

COM 

A*W ( MK0NE28 ) *YMORE 

01711 

ENT 

A*W(MK0NE28) *SKIP 

01712 

RJP 

SORT 

01713 

STR 

A*W(MKZO> 

01714 

EXIT 

01715 

COMMENT 

01716 

COMMENT  ...SUBROUTINE  5... 

01717 

COMMENT 

01720 

COMMENT  INPUT  TYPE  0 

01721 

COMMENT  INPUT  =  DELAY  *  ANGLE 

01722 

COMMENT  CALCULATE  X<0)»Y(0)i 

01723 

COMMENT 

01724  MXINPOSD 

ENTRY 

01725 

RJP 

U( INTERCOM) 

01726 

U-TAG  MKMES08*MKM£SIQ 

01727 

RJP 

U( INTERCOM) 

01730 

U-TAG  MKMES09*MKMESI9 

01731 

ENT 

A*W ( MKQ90 ) 

01732 

ENT 

Q*W (MKlANG) 

01733 

RJP 

SSUB 

01734 

RJP 

SOVERFLOW 

01735 

ENT 

Q*A 

01736 

MUL 

W (MKRADDEG) 

01737 

LSH 

AQ*8D 

01740 

RJP 

ROUND 

01741 

STR 

A*W ( MKDANG) 

01742 

ENT 

Q*27D 

01743 

RJP 

SINX 

0174H 

STR 

A^W(MKSINDA) 

01745 

ENT 

A*W(MKDANG) 

01746 

ENT 

Q*270 

01747 

RJP 

COSX 

01750 

STR 

A*tf (MKCOSDA) 

t 


04036 

11030 

06627 

1.0  AT  B28 

04037 

15030 

06675 

X(0)  $S2  (028) 

04040 

11030 

06627 

1.0  AT  028 

04041 

21630 

Q6675 

1-X**2  AT  B28 

04042 

11000 

00000 

04043 

04730 

06627 

04044 

11130 

06627 

1.0  AT  B28 

04045 

65000 

06441 

AT  628 

04046 

15030 

07135 

STORE  UPPER  LIMIT 

04047 

15070 

07134 

STORE  LOWER  LIMIT 

04050 

65020 

63426 

04051 

07126 

07132 

04052 

10030 

06545 

B28 

04053 

22030 

06545 

04054 

07200 

00002 

AT  058 

04055 

20000 

00001 

ROUND  OFF 

04056 

04730 

06627 

04057 

11030 

06627 

1.0  AT  B28 

04060 

15030 

06676 

Y ( 0 )  **2  (  B28  ) 

04061 

11030 

06627 

04062 

21030 

06675 

04063 

21630 

06676 

1-X**2-Y**2 

04064 

11000 

00000 

04065 

15030 

06677 

Z<0)**2=  1-  X(0)**2 
B2 

04066 

04730 

06627 

04067 

11130 

06627 

1.0  AT  B28 

04070 

65000 

06441 

AT  028 

04071 

15030 

06546 

04072 

61010 

04026 

04073 

61000 

00000 

04074 

65020 

63426 

04075 

07136 

07143 

DELAY 

04076 

65020 

63426 

04077 

07147 

07154 

ANGLE 

04100 

11030 

06635 

B20 

04101 

10030 

06661 

04102 

65000 

06324 

04103 

65000 

06257 

04104 

10070 

00000 

04105 

22030 

06636 

629 

04106 

07000 

00010 

SCALE  B27 

04107 

65000 

01426 

04110 

15030 

06700 

90  -  IN  RADIUS  027 

04111 

10000 

00033 

04112 

65000 

06354 

04113 

15030 

06701 

B2«  SIN 

04114 

11030 

06700 

04115 

10000 

00033 

G4116 

65000 

06343 

04117 

15030 

06702 

B28  COS 

Y(0)**2  ( 


01751 

01752 

01753 

01754 

01755 

01756 

01757 

01760 

01761 

01762 

01763 

01764 

01765 

01766 

01767 

ENT  Q*W(MKIDELAY) 

MUL  W(MKQRll) 

LSH  AQ*4 

RJP  ROUNO 

STR  A*W (MKDKK2) 

ENT  Q*A 

RSH  Q*1 

ENT  A*W (MK0NE2H) 

RJP  SSUB 

RJP  SOVERFLOW 

ENT  Q*A 

MUL  W(MKQALF) 

LSH  AQ*1 

RJP  ROUND 

STR  A*W ( MKT1 ) 

01770 

01771 

01772 

01773 

01774 

01775 

01776 

01777 

02000 

02001 

02002 

02003 

02004 

02005 

02006 

02007 

02010 

02011 

02012 

02013 

02014 

02015 

02016 

02017 

02020 

02021 

02022 

02023 

02024 

02025 

02026 

02027 

02030 

U2031 

02032 

02033 

02034 

02035 

02036  MXLHA 
02037 

ENT  A*W(MK0NE28) 

ENT  Q*W ( MKDKK2 ) 

RJP  SSUB 

RJP  SOVERFLOW 

STR  A*W(MKT2) 

ENT  Q*W ( MKT 1 ) 

RJP  SADD 

RJP  SOVERFLOW 

STR  A*W  ( MKZO ) 

ENT  Q*A 

MUL  W (MKZO ) 

LSH  AQ*2*QP0S 

ADD  A*1 

COM  A*W  ( MK0NE28) * YMORE 

ENT  A*W (MK0NE28) 

STR  A*W ( MKZ02) 

ENT  A*W ( MK0NE28 ) 

SUB  A*W(MKZ02)*AP0S 

CL  A 

STR  A*W (MKZR02) 

COM  A*W ( MK0NE28 )* YMORE 

ENT  A*W(MK0NE28)*SKIP 

RJP  SORT 

STR  A*W ( MKZRO ) 

ENT  Q*W (MKZRO) 

MUL  W(MKCOSDA) 

LSH  AQ*2 

RJP  ROUND 

STR  A*W(MKXO> 

ENT  Q*W  ( MKZRO ) 

MUL  W(MKSINDA) 

LSH  AQ*2 

RJP  ROUND 

STR  A*W(MKYO) 

EXIT 

COMMENT 

COMMENT  ...SUBROUTINE  6. 

comment 

ENTRY 

ENT  A*W<SIDERTIME> 

02040 

02041 

ADD  A*W(DSIDERT) 

ENT  Q*W (MKRA ) 

V 


04120 

10030 

06660 

04121 

22030 

06620 

1/11.595  829 

04122 

07000 

00004 

A 

04123 

65000 

01426 

04124 

15030 

06705 

D/11.595  B28 

04125 

10070 

00000 

DIVIDE  BY  2 

04126 

01000 

00001 

B28  0/2(1/11.595) 

04127 

11030 

06627 

04130 

65000 

06324 

04131 

65000 

06257 

04132 

10070 

00000 

1-  ABOVE  B28 

04133 

22030 

06630 

CONSTANT  ALPHA  B29 

04134 

07000 

00001 

SCALE  AT  28 

04135 

65000 

01426 

04136 

15030 

07000 

K3=ALPH(1-1/2(D/11.595)  028 

04137 

11030 

06627 

04140 

10030 

06705 

04141 

65000 

06324 

04142 

65000 

06257 

04143 

15030 

07001 

K4 

04144 

10030 

07000 

B28 

04145 

65000 

06305 

04146 

65000 

06257 

04147 

15030 

06546 

Z(0)  AT  R28 

04150 

10070 

00000 

04151 

22030 

06546 

04152 

07200 

00002 

AT  358 

04153 

20000 

00001 

ROUND  OFF 

04154 

0U730 

06627 

04155 

11030 

06627 

1.0  AT  328 

04156 

15030 

06677 

B28 

04157 

11030 

06627 

04160 

21630 

06677 

04161 

11000 

00000 

04162 

15030 

06703 

l-Z*+2  AT  B28 

04163 

04730 

06627 

04164 

11130 

06627 

1.0  AT  B28 

04165 

65000 

06441 

AT  328 

04166 

15030 

06704 

04167 

10030 

06704 

B28 

04170 

22030 

06702 

B28 

04171 

07000 

00002 

04172 

65000 

01426 

04173 

15030 

06544 

X  ( 0 ) 

04174 

10030 

06704 

04175 

22030 

06701 

04176 

07000 

00002 

04177 

65000 

01426 

04200 

15030 

06545 

Y  ( 0 ) 

04201 

61010 

04073 

04202 

61000 

00000 

04203 

11030 

63012 

LST  IN 

RADIANS  R26  (2  SEC  OLD) 

04204 

20030 

04217 

2  SECONDS  IN  PAD  H?6 

04205 

10030 

06643 

ALF(O) 

RAD  B26 

U2042 

RJP 

SSU0 

04206 

65000 

06324 

02043 

RJP 

SOVERFLOW 

04207 

65000 

06257 

o2044 

STR 

A**(MKLHA> 

04210 

15030 

06552 

LHA=  LST-ALF(O)  B26  RADIANS 

02045 

ENT 

A*W (MKQWE) 

04211 

11030 

06626 

B42 

02040 

ENT 

G*W(MKRADOT ) 

04212 

10030 

06641 

J2047 

RJP 

SSU3 

04213 

65000 

06324 

02050 

RJP 

SOVERFLOW 

04214 

65000 

06257 

02051 

STR 

A*W(MKLHADT> 

04215 

15030 

06553 

X  O/DT (LHA )  B43 

02052 

EXIT 

04216 

61010 

04202 

02053  OSIDERT 

0000023070 

04217 

00000 

23070 

•0001458B26  2  SECONDS  SIDEREAL 

TIMEr  RAO  B26 

02054 

comment 

J2055 

COMMENT  • • .SUBROUTINE  7.,. 

02056 

COMMENT 

02057  MXRO 

entry 

04220 

61000 

00000 
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A*w (MKLHA ) 
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SINX 
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06354 
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A*W (MKSINLHA) 

04224 
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06706 
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ENT 

Q*W (GEOCENLAT ) 

04225 
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MUL 

W(MKRADDEG) 

04226 
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B29 

02066 

LSH 

AQ*8D 

04227 
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02067 

RJP 

ROUND 
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01426 

02070 
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04231 

15030 

06647 
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02071 
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04232 
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00033 
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RJP 

SINX 

04233 
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06354 

02073 
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A*W (MKSINGLAT) 
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u2074 
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A*W( MKLHA) 

04235 
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06552 

COS ( LHA ) 

02075 

ENT 
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04236 

10000 

00032 

X 
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RJP 

COSX 

04237 

65000 

06343 

X 

02077 
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A*W ( MKCOSLHA ) 
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15030 

06707 

X  B28 

u210o 

ENT 

A*W(MKDEC) 

04241 

11030 

06644 
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02101 

ENT 

G*26D 

04242 
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X 

02102 

RJP 

SINX 

04243 

65000 

06354 

X 

0210  J 
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A*W (MKSINDEC ) 

04244 

15030 

06650 

X 

02104 

ENT 

A*W ( MKGEOLAT ) 

04245 
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06647 

GET  COS(GLAT) 

02105 

ENT 

G*27D 

04246 
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00033 

02106 

RJP 

COSX 

04247 

65000 

06343 

X 

J2107 
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A*W  ( MKCOSGLAT ) 

04250 

15030 

06653 

X  B28 

02110 

ENT 

A*W(MKDEC> 

04251 

11030 

06644 

COS(DEC) 

u2111 

ENT 

Q*26D 

04252 

10000 

00032 

X 

02112 

RJP 

COSX 

04253 

65000 

06343 

X 

02113 

STR 

A*W  ( MKCOSDEC ) 

04254 

15030 

06651 

X  B28 

02114 

ENT 

A*W ( MKQKHO ) 

04255 

11030 

06624 

B 

02115 

CL 

Q 

04256 

10000 

00000 

02116 

RSH 

AQ*4 

04257 

03000 

00004 

XXXXX 

02117 

UIV 

W (MKDO ) ♦NOOF 

04260 

23230 

06645 

D( 0 )  B22 

02120 

RJP 

SOVERFLOW 

04261 

65000 

06257 

02121 

LSH 

A*1 

04262 

06000 
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X 

02122 

COM 

A*W(MKDO)*YMORE 

04263 

04730 

06645 

X  ROUND 

02123 

ADO 

0*1 

04264 

26000 
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02124 

STR 

G*W(MK4) 

04265 

14030 

06571 

X  RHO/D  SCALED  AT  B33 

02125 

MUL 

W(MK4) 

04266 

22030 

06571 

02126 

RJP 

ROUND 

04267 

65000 

01426 

02127 

STR 

A*W(MK<+2) 

04270 

15030 

06777 

XXXXX  SCALED  AT  B36 

02130 

COMMENT  INSERT  JP  MXRONEW  HERE  FOR 
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ER  EQUATION 

02131  COMMENT  IF  GOING  TO  NEW  CALC  DO  X  DO 


u2132 

ENT 

Q*W(MKSINGLAT) 

04271 

10030 

06652 

SIN ( PHI ) X  SlN(OEC) 

J213J 

MUL 

W ( MKSINDEC ) 

04272 

22030 

06650 

X 

02134 

LSH 

AQ*2 

04273 

07000 

00002 

SCALE  AT  B28 

02135 

RJP 

ROUND 

04274 

65000 

01426 

X 

U2136 

STR 

A*  W  ( MKS INPHID ) 

04275 

15030 

06710 

02137 

ENT 

Q*W  ( MKCOSGLAT ) 

04276 

10030 

06653 

U2140 

MUL 

W(MKCOSDEC) 

04277 

22030 

06651 

B28 

02141 

LSH 

AQ*2 

04300 

07000 

00002 

X  SCALE  AT  28 

02142 

RJP 

ROUND 

04301 

65000 

01426 

02143 
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Q*A 

04302 

10070 
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02144 

MUL 

rt (MKCOSLHA) 

04303 

22030 

06707 

0214b 

LSH 

AQ*2 

04304 

07000 

00002 

U214t> 

RJP 

ROUND 

04305 

65000 

01426 

02147 
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A*w (MKCOSPHID) 

04306 

15030 

06711 

02150 

ENT 

Q*W (MKS INPHID) 

04307 

10030 

06710 

AT  B28 
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RJP 

SAUO 

04310 

65000 

06305 

02152 

RJP 
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04311 

65000 

06257 

02153 
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04312 

15030 

06712 

02154 

ENT 
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04313 

10030 

06712 

B28 

02155 
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W(MK4) 
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22030 

06571 
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0215b 
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04315 
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RJP 
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01426 
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04317 

15030 
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04320 
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02162 
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11030 
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RSH 
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04325 

10030 

06627 

02167 

RJP 

SADD 

04326 

65000 

06305 

02170 

RJP 

SOVERFLOW 

04327 

65000 

06257 

02171 

STR 

A*W (MKRT2) 
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RJP 
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02240 

RJP 
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02241 
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02242 
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02243 
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02244 
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02245 

RJP 
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02246 

ENT 

Q*A 
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02250 
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02251 

RJP 
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STR 
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RJP 
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Q*A 
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02277 
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A-P2R 

Kl=COS(UEC)COS<LHA> 
X  R2R 

X  SCALE  AT  D2B 
X 

y  1  *R?A 

T1=SIN ( DEC ) SIN (LHA ) 
X 


U24U5 
02406 
02407 
U2410 
02411 
02412 
02413 
02414 
0241b 
U2416 
02417 
02420 
02421 
02422 
02423 
02424 
02425 
0242o 
02427 
02430 
02431 
02432 
02433 
02434 
0243b 
U2436 
02437 
02440 
02441 
02442 
02443 
02444 
0244b 
02440 
02447 
02460 
02451 
02452 
02453 
02454 
0245b 
02456 
02457 
U2460 
02461 
024  b2 
J2463 
U24b4 
0c4bb 
0246b 

02467 

02470 

02471 

02472 

02473 

02474 

02475 

02476 


MXb 


LSH  AQ*2 
RJP  ROUND 
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ENT  Q*W(MK4) 

MUL  W (MKCOSGLAT ) 
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RJP  SOVERFLOW 


4 


04531 

07000 

00002 

X  SCALE  AT  28 

04532 

65000 

01426 

X 

04533 

15030 

07001 

X  T2=B28 

04534 

10070 

00000 

T2(DD/DT)=TJ 

04535 

22030 

06642 

04536 

07000 

00002 

04537 

65000 

01426 

X 

04540 

15030 

07003 

X  T4=B43 

04541 

10030 

06566 

(Kl) (D(LHA)/DT) 

=T3  B28 

04542 

22030 

06553 

X  B42 

04543 

07000 

00002 

04544 

65000 

01426 

X  T3=B42 

04545 

15030 

07002 

X 

04546 

10030 

07003 

T3-T4=D(A)/DT 

B42 

04547 

65000 

06324 

X 

04550 

65000 

06257 

X 

04551 

15030 

06721 

X  D(A)/DT  B42 

RAD/SEC 

04552 

61010 

04517 

04553 

61000 

00000 

04554 

10030 

06571 

K5=K4C0S(GLAT)  K4  AT  B33 

04555 

22030 

06653 

X  B28 

04556 

07000 

00002 

X  SCALE  AT  B37 

04557 

65000 

01426 

X 

04560 

15030 

06572 

X  SCALED  AT  B33 

04561 

10070 

00000 

B=Kl-K5 

04562 

11030 

06566 

X  K1=B28 

04563 

01000 

00005 

X  SCALE  K5  AT  B28 

04564 

65000 

06324 

X 

04565 

68000 

06257 

X 

04566 

15030 

06722 

X  B=B28 

04567 

10030 

06650 

xxxxx 

04570 

22030 

06707 

XX 

04571 

07000 

00002 

X 

04572 

65000 

01426 

XX 

04573 

15030 

06570 

XX 

04574 

10030 

06570 

T1=K3D(D)/DT 

04575 

22030 

06642 

04576 

07000 

00002 

04577 

65000 

01426 

X 

04600 

15030 

07000 

X  T1=R45 

04601 

10030 

06567 

04602 

22030 

06553 

X  K2=B28»D(LHA) /DT-B43 

04603 

07000 

00002 

04604 

65000 

01426 

X 

04605 

15030 

07001 

X  T2=B45 

04606 

10030 

06572 

04607 

22030 

06655 

X  K5=B33#DD0/DT  IN  ER/SEC  AT  B 
40 

04610 

03000 

00011 

04611 

23230 

06645 

X  AQ  AT  37>D0  AT  22 

04612 

65000 

06257 

X  CHECK  ROUNDING 

04613 

14030 

07002 

X  T3  AT  45 

04614 

11030 

07002 

X 

04615 

10030 

07001 

T3-T2 

04616 

65000 

06324 

X 

04617 

65000 

06257 

X 

02477 

J2500 

u2501 

J25U2 

U250J 

02504 

02505 

ij2506 

02507 

u2510 

02511 

02512 

02513 

02514 

02515 

0251b 

U2517 

02520 

02521 

02522 

o2523 

02524 

02525 

02526 

02527 

02530 

02531 

02532 

U2533 

02534 

02535 

02536 

02537 

02540 

02541 

U2542 

02543 

02544 

02545 

02546 

02547 

02550 

02551 

02552 

02553 

U2554 

02555 

02556 

02557 

02560 

02561 

02562 

02563 

02564 

02565 

02566 

02567 

02570 

02571 


ENT  Q*W (MKT 1 ) 

RJP  SSU8 

RJP  S0VERFL0W 

5TR  A*W  ( MKCBQT ) 

EXIT 

COMMENT 

COMMENT  •..SUBROUTINE  12 
COMMENT 

MXC  ENTRY 

ENT  Q*w(MK4) 

MUL  W  (MKSINGLAT) 

LSH  AG*2 
RJP  ROUND 
STR  A*W ( MK6) 

ENT  Q*A 
RSH  G*5 

ENT  A*W  ( MKSINDEC ) 

RJP  SSUB 
RJP  SOVERFLOW 
STR  A*W ( MKCC ) 

ENT  Q*W ( MKCOSOEC ) 

MUL  W(MKDECDOT) 

LSH  AQ*2 
RJP  ROUND 
STR  A*w ( MKT 1 ) 

ENT  Q*W(MK6) 

MUL  W(MKDDOTX) 

RSH  AQ*9D 
DIV  W  ( MKDO  )  *NOOF 
RJP  SOVERFLOw 
STR  Q*W ( MKT2 ) 

ENT  A*W(MKT1) 

RJP  SADD 

RJP  SOVERFLOW 

STR  A*W ( MKCCDT ) 

EXIT 

COMMENT 

COMMENT  ...SUBROUTINE  13 
COMMENT 

MXDELP  ENTRY 

ENT  Q*w ( MKCC ) 

MUL  W(MKT5) 

LSH  AQ*2 

RJP  ROUND 

STR  A*W (MK5INDP) 

ENT  Q*28D 
RJP  ASINX 
RSH  A*1 
STR  A*W(MKDP> 

ENT  Q*26D 

RJP  COSX 

STR  A*W ( MKCOSDP) 

EXIT 

COMMENT 

COMMENT  ...SUBROUTINE  14, 
COMMENT 

MXALF  ENTRY 

ENT  Q*W(MKRT> 

MUL  W( MKCOSDP) 


04620 

10030 

07000 

X 

ANSWER-T1 

04621 

65000 

06324 

X 

04622 

65000 

06257 

X 

04623 

04624 

15030 

61010 

06723 

04553 

X 

D(P)/DT  AT  B45  RAD/SEC 

04625 

61000 

00000 

04626 

10030 

06571 

K6=K4SIN<GLAT> 

04627 

22030 

06652 

X  K4  AT  B33(  SIN  AT  B28 

04630 

07000 

00002 

X 

04631 

65000 

01426 

X 

04632 

15030 

06573 

X  K6  SCALED  AT  B33 

04633 

04634 

10070 

01000 

00000 

00005 

C=SIN(DEC)-K6 

04635 

11030 

06650 

X 

04636 

65000 

06324 

X 

04637 

65000 

06257 

X 

04640 

15030 

06724 

X  C=B28 

04641 

04642 

04643 

10030 

22030 

07000 

06651 

06642 

00002 

T1=C0S(DEC)XDD/DT  R43 

04644 

65000 

01426 

X 

04645 

15030 

07000 

X  T1=B45 

04646 

04647 

04650 

10030 

22030 

03000 

06573 

06655 

00011 

X  K6 (DD/DT) 

04651 

23230 

06645 

X  D0-B22 

04652 

65000 

06257 

X 

04653 

14030 

07001 

X  T2=B45 

04654 

11030 

07000 

X  45 

04655 

65000 

06305 

X  Q  +  T1 

04656 

65000 

06257 

X 

04657 

04660 

15030 

61010 

06725 

04625 

X  D(C)/DT  RAD/SEC  AT  545 

04661 

61000 

00000 

04662 

10030 

06724 

C  AT  B28 

04663 

22030 

07012 

C* (DO/RO )  AT  B56 

04664 

07000 

00002 

AT  B28 

04665 

65000 

01426 

04666 

15030 

06726 

SIN(DECPRIME)  AT  B28 

04667 

10000 

00034 

X 

04670 

65000 

06505 

X 

04671 

02000 

00001 

04672 

15030 

06563 

X  DP-SCALED  B27 

04673 

10000 

00032 

04674 

65000 

06343 

X 

04675 

15030 

06727 

X  C0S(DP)-B28 

04676 

61010 

04661 

04677 

61000 

00000 

04700 

10030 

06565 

RO/DO  AT  B28 

04701 

22030 

06727 

X  C0S=B28»  R 

r 


02572 

02573 

02574 

02575 

02576 

02577 

02600 

02601 

02602 

02603 

02604 

02605 

02606 

02607 

02610 

02611 

02612 

02613 

02614 

02615 

02616 

02617 

02620 

02621 

02622 

02623 

02624 

02625 

02626 

02627 

02630 

02631 

02632 

02633 

02634 

02635 

02636 

02637 

02640 

02641 

02642 

02643 

02644 

02645 

02646 

02647 

02650 

02651 

02652 

02653 

02654 

02655 

02656 

02657 

02660 

02661 

02662 

02663 

02664 


MXDECPDT 


LSH  AQ*2 
RJP  ROUND 
STR  A*W (MKAB) 

ENT  Q*A 
MUL  W(HKAB) 

LSH  AQ*2 
RJP  ROUND 
STR  A*W(MKAB2) 

ENT  A*W(MKCA> 

CL  Q*APOS 

CP  0 

RSH  AQ*2 

DIV  W (MKAB) *NOOF 

RJP  SOVERFLOW 

COMMENT  MAY  NEED  ROUND  OFF 
STR  Q*W (MKSINLHAP) 

STR  Q*A 
ENT  Q*28D 
RJP  ASINX 
RSH  A*1 

ENT  Q*W(MKCB)*QNEG 
JP  $+3 
CP  A 

ADD  A*W (MKQlflO ) 

STR  A*W(MKLHAP> 

ENT  A*W(SIDERTIME) 

ENT  Q*W(MKLHAP) 

RJP  SSUB 

RJP  SOVERFLOW 

STR  A+WCMKALFP) 

EXIT 

COMMENT 

COMMENT  ...SUBROUTINE  15... 

COMMENT 

ENTRY 

ENT  Q*W(MKCADT) 

MUL  W(MKCA) 

LSH  AQ*2 
RJP  ROUND 
STR  A*W(MKT1) 

ENT  Q*W (MKCBDT) 

MUL  W(MKCB) 

LSH  AQ*2 
RJP  ROUND 
STR  A*W(MKT2) 

ENT  Q*W (MKT1 ) 

RJP  SADD 
RJP  SOVERFLOW 
STR  A*W (MKT3) 

CL  Q+APOS 

CP  Q 

RSH  AQ*2 

DIV  W (MKAB) *NOOF 

RJP  SOVERFLOW 

COMMENT  MAY  NEED  ROUND  OFF  I 
STR  Q*W(MKABDT) 

ENT  Q*W(MKAB) 

MUL  W(MKCCDT) 

LSH  AQ*2 


t 


04702 

07000 

00002 

X  SCALE  AT  28 

04703 

65000 

01426 

X 

04704 

15030 

06732 

X  AB=B28 

04705 

10070 

00000 

(AB) (AB) 

04706 

22030 

06732 

X 

04707 

07000 

00002 

X 

04710 

65000 

01426 

X 

04711 

15030 

06733 

X  B28 

04712 

11030 

06720 

SIN(LHA-)=A/AB 

04713 

10600 

00000 

04714 

14000 

00000 

04715 

03000 

00002 

X  SCALE  AT  56 

04716 

23230 

06732 

X  A=B28 

04717 

65000 

06257 

X 

04720 

14030 

06730 

X  B28 

04721 

14040 

00000 

LHA=ARCSIN  LHA 

04722 

10000 

00034 

X 

04723 

65000 

06505 

X 

04724 

02000 

00001 

X  LHA  IS  NOW  B2L 

04725 

10330 

06722 

04726 

61000 

04731 

04727 

15040 

00000 

04730 

20030 

06637 

04731 

15030 

06731 

X  B27-LHA- 

04732 

11030 

63012 

ALF=LST-LHA- 

04733 

10030 

06731 

X 

04734 

65000 

06324 

X 

04735 

65000 

06257 

X 

04736 

15030 

06561 

X  ALF=827  RADIANS 

04737 

61010 

04677 

04740 

61000 

00000 

04741 

10030 

06721 

T1=A0A/DT 

04742 

22030 

06720 

X  A=928#  DA/DT  AT  45 

04743 

07000 

00002 

X  SCALE  AT 

45 

04744 

65000 

01426 

X 

04745 

15030 

07000 

X  T1=B45 

04746 

10030 

06723 

T2=BDB/DT 

04747 

22030 

06722 

X 

04750 

07000 

00002 

X  SCALE  AT 

B37 

04751 

65000 

01426 

X 

04752 

15030 

07001 

X  T2=P45 

04753 

10030 

07000 

T3=T2+T1 

04754 

65000 

06305 

04755 

65000 

06257 

X 

04756 

15030 

07002 

X  T3=B45 

04757 

10600 

00000 

04760 

14000 

00000 

04761 

03000 

00002 

X  SCALE  AT 

73 

04762 

23230 

06732 

D(AB)/DT=T3/AB 

04763 

65000 

06257 

X  T  3-B»  AB-B28 

04764 

14030 

06734 

X  D(AB)/DT 

B45 

04765 

10030 

06732 

T4=(A8)DC/DT 

04766 

22030 

06725 

X 

04767 

07000 

00002 

X  SCALE 

AT  45 

-<] 

o 


02665 

RJP 

ROUND 

04770 

65000 

01426 

X 

02666 

STR 

A»W(MKT4) 

04771 

15030 

07003 

X  T4=45 

02667 

ENT 

Q*W ( MKCC ) 

04772 

10030 

06724 

T5=CDAB/DT 

02670 

MUL 

W(MKABDT) 

04773 

22030 

06734 

X 

02671 

LSH 

AQ*2 

04774 

07000 

00002 

X  SCALE  AT  45 

02672 

RJP 

ROUND 

04775 

65000 

01426 

X 

02673 

STR 

A*W ( MKT5) 

04776 

15030 

07012 

X  T5=45 

02674 

ENT 

Q*A 

04777 

10070 

ooooo 

T6=T4-T5 

02675 

ENT 

A*W  ( MKT4 ) 

05000 

11030 

07003 

X 

02676 

RJP 

SSUB 

05001 

65000 

06324 

X 

02677 

RJP 

SOVERFLOW 

05002 

65000 

06257 

X 

02700 

STR 

A*W(MKT6) 

05003 

15030 

07013 

X  T6=45 

02701 

CL 

Q»APOS 

05004 

10600 

OOOOO 

02702 

CP 

Q 

05005 

14000 

OOOOO 

02703 

RSH 

AQ*2 

05006 

03000 

00002 

X  SCALE  T6  AT  B65 

02704 

DIV 

W (MKRT2) *NOOF 

05007 

23230 

06714 

X  B28 

02705 

RJP 

SOVERFLOW 

05010 

65000 

06257 

X 

02706 

COMMENT  MAY  NEED 

ROUNDOFF  HERE 

02707 

STR 

Q*W(MKDPDT> 

05011 

14030 

06562 

X  D(DP)/DT  AT  45 

02710 

ENT 

A*W(MKOPDT) 

05012 

11030 

06562 

IN  RAD/SEC  AT  B42 

02711 

RSH 

AQ*5 

05013 

03000 

00005 

02712 

RJP 

ROUND 

05014 

65000 

01426 

02713 

STR 

A*W (DECDOT) 

05015 

15030 

63010 

IN  RAD/SEC  AT  B37 

02714 

EXIT 

05016 

61010 

04740 

02715 

COMMENT 

02716 

COMMENT  ...SUBROUTINE  16... 

02717 

COMMENT 

02720  MXAPDT 

ENTRY 

05017 

61000 

OOOOO 

02721 

ENT 

Q*W(MKCB) 

05020 

10030 

06722 

T1=BDA/DT 

02722 

MUL 

W  CMKCADT) 

05021 

22030 

06721 

X 

02723 

LSH 

AQ*2 

05022 

07000 

00002 

X  SCALE  AT  45 

02724 

RJP 

ROUND 

05023 

65000 

01426 

X 

02725 

STR 

A*W (MKT 1 ) 

05024 

15030 

07000 

X  T1  AT  45 

02726 

ENT 

Q»W(MKCA) 

05025 

10030 

06720 

T2=ADB/DT 

02727 

MUL 

W(MKCBDT) 

05026 

22030 

06723 

X 

02730 

LSH 

AQ*2 

05027 

07000 

00002 

X 

02731 

RJP 

ROUND 

05030 

65000 

01426 

X 

02732 

STR 

A*W(MKT2) 

05031 

15030 

07001 

X  T2  AT  42 

02733 

ENT 

Q*A 

05032 

10070 

OOOOO 

X  T3=T1-T2 

02734 

ENT 

A*W ( MKT 1 ) 

05033 

11030 

07000 

X 

02735 

RJP 

SSUB 

05034 

65000 

06324 

02736 

RJP 

SOVERFLOW 

05035 

65000 

06257 

02737 

STR 

A*W (MKT3) 

05036 

15030 

07002 

X  T3  AT  45 

02740 

CL 

Q*APOS 

05037 

10600 

OOOOO 

02741 

CP 

Q 

05040 

14000 

OOOOO 

02742 

RSH 

AQ*2 

05041 

03000 

00002 

X  SCALE  T3  AT  43 

02743 

DIV 

W (MKAB2) *NOOF 

05042 

23230 

06733 

T4=T3/ABZ 

02744 

RJP 

SOVERFLOW 

05043 

65000 

06257 

X  AB2=B28#T3=B37 

02745 

COMMENT  MAY  NEED 

ROUND  OFF  HERE 

02746 

STR 

Q*W (MKT4) 

05044 

14030 

07003 

X  T4  AT  45 

02747 

ENT* 

A*W(MKQWE> 

05045 

11030 

06626 

D(A)/DT=W(E>-T4 

02750 

RJP 

SSUB 

05046 

65000 

06324 

X 

02751 

RJP 

SOVERFLOW 

05047 

65000 

06257 

X 

02752 

STR 

A*W (MKAPDT) 

05050 

15030 

06560 

X  D(AP)/DT  AT  45 

02753 

RSH 

AQ*5 

05051 

03000 

00005 

02754 

RJP 

ROUND 

05052 

65000 

01426 

02755 

STR 

A*W(RADOT) 

05053 

15030 

63007 

RAD/SEC  AT  B37 

02756 

EXIT 

05054 

61010 

05017 

02757 

COMMENT 

r 


I 


I 


H 


02760 

COMMENT  ...SJBR 

02761 

COMMENT 

02762  MXAl 

ENTRY 

02763 

ENT 

A*W  ( MKQI ) 

02764 

ENT 

0*260 

02765 

RJP 

SINX 

02766 

STR 

A*W ( MKQISIN) 

02767 

ENT 

A*W (MKQI ) 

02770 

ENT 

0*260 

02771 

RJP 

COSX 

U2772 

STR 

A*W(MKQICOS> 

02773 

ENT 

a*w(mkalfp> 

02774 

ENT 

G*W (MKQSP) 

02775 

RJP 

SSUB 

02776 

RJP 

SOVERFLOW 

02777 

STR 

A*W (MK7) 

03000 

ENT 

G*26D 

03001 

RJP 

COSX 

03002 

STR 

A*W(MK8) 

03003 

ENT 

Q*A 

03004 

MUL 

W(MKCOSDP) 

03005 

LSH 

AQ*2 

03006 

RJP 

ROUNO 

03007 

STR 

A* W ( MK10 ) 

03010 

STR 

A*CP’W  (MKCA1 ) 

03011 

ENT 

A*W(MK7) 

03012 

ENT 

0*260 

03013 

RJP 

SINX 

03014 

STR 

A*W ( MK9 ) 

03015 

ENT 

Q*A 

03016 

MUL 

w(mkcosop) 

03017 

LSH 

AQ*2 

03020 

RJP 

ROUNO 

U3021 

STR 

A*W (MKll ) 

03022 

ENT 

Q*A 

03023 

MUL 

W(MKAPOT) 

03024 

LSH 

AQ*2 

03025 

RJP 

ROUNO 

03026 

STR 

A*W(MKT1) 

U3027 

ENT 

Q*W(MK8) 

03030 

MUL 

W(MKSINDP) 

03031 

LSH 

AQ*2 

03032 

RJP 

ROUNO 

03033 

STR 

A*W ( MK12 ) 

03034 

ENT 

Q*A 

03035 

MUL 

W(MKOPDT) 

03036 

LSH 

AQ*2 

03037 

RJP 

ROUNO 

03040 

STR 

A*W (MKT2 ) 

03041 

ENT 

Q*W ( MKT1 ) 

03042 

RJP 

SADO 

03043 

RJP 

SOVERFLOW 

03044 

STR 

A*W(MKCA1DT) 

03045 

ENT 

Q*W(MK9) 

U3046 

MUL 

W(MKSINOP) 

03047 

LSH 

AQ*2 

03050 

RJP 

ROUND 

J3051 

STR 

A*W (MK13) 

03052 

EXIT 

4 


05055  61000  00000 
05056  11030  07164 
05057  10000  00032 
05060  65000  06354 
05061  15030  07166 
05062  11030  07164 
05063  10000  00032 
05064  65000  06343 
05065  15030  07167 
05066  11030  06561 
05067  10030  07165 
05070  65000  06324 
05071  65000  06257 
05072  15030  06574 
05073  10000  00032 
05074  65000  06343 
05075  15030  06575 
05076  10070  00000 
05077  22030  06727 
05100  07000  00002 
05101  65000  01426 
05102  15030  06577 
05103  15070  06760 
05104  11030  06574 
05105  10000  00032 
05106  65000  06354 
05107  15030  06576 
05110  10070  00000 
05111  22030  06727 
05112  07000  00002 
05113  65000  01426 
05114  15030  06600 
05115  10070  00000 
05116  22030  06560 
05117  07000  00002 
05120  65000  01426 
05121  15030  07000 
05122  10030  06575 
05123  22030  06726 
05124  07000  00002 
05125  65000  01426 
05126  15030  06601 
05127  10070  00000 
05130  22030  06562 
05131  07000  00002 
05132  65000  01426 
05133  15030  07001 
05134  10030  07000 
05135  65000  06305 
05136  65000  06257 
05137  15030  06735 
05140  10030  06576 
05141  22030  06726 
05142  07000  00002 
05143  65000  01426 
05144  15030  06602 
05145  61010  05055 


GET  SIN(I)  ANO  COS(I) 

X 

X 

X 

X 

X 

X 

X 

K7=ALF— S- 
X 
X 
X 

X  RAD  B26 

X 

X 

K10=(C0S(DP) >MK8 
X 

X  SCALE  AT  28 
X 

X  K10-B28 
K9=SIN(K7) 

X 

X  K9=B28 
K11=K9C0S(DP> 

X 

X  SCALE  AT  28 
X 

X  K11-B28 

Tl=KllD(A-)/DT 

X 

X 

X 

X  Tl  AT  45 
K12=K8SIN(DP) 

X 

X 

X 

X  K12-B28 

T2=K12D(DP)/0T 

X 

X 

X 

X  T2  AT  45 
D(A1)/DT=T2+T1 
X 
X 

X  D(A1)/DT  AT  45 
K13=K9SIN(DP> 

X 

X 

X 

X  K13=B28 


-4 

ro 


03053 

COMMENT 

03054 

COMMENT  • • • SUBR 

03055 

COMMENT 

0305b  MX81 

ENTRY 

03057 

ENT 

Q*W ( MKQICOS ) 

03060 

MUL 

W(MK11) 

03061 

LSH 

AQ*2 

03062 

RJP 

ROUND 

03063 

STR 

A*W (MKT 1 ) 

03064 

ENT 

(MKSINDP) 

03065 

MUL 

W ( MKQISIN) 

03066 

LSH 

AQ*2 

03067 

RJP 

ROUND 

03070 

STR 

A*to ( MKT2 ) 

03071 

ENT 

(MKT 1 ) 

03072 

RJP 

SADD 

03073 

RJP 

SOVERFLOW 

03074 

STR 

A^CPW (MKCB1 ) 

03075 

ENT 

Q*W(MKCOSDP> 

U307b 

MUL 

W ( MKQISIN ) 

03077 

LSH 

AQ*2 

03100 

RJP 

ROUND 

03101 

STR 

A»W(MKT3) 

03102 

ENT 

Q*W (MKQICOS) 

03103 

MUL 

W(MK13) 

03104 

LSH 

AQ*2 

03105 

RJP 

ROUND 

03106 

STR 

A*W (MKT4) 

03107 

ENT 

Q*W (MKT3) 

03110 

RJP 

SSUB 

u3111 

RJP 

SOVERFLOW 

03112 

STR 

A*W (MKT7) 

03113 

ENT 

Q*A 

03114 

MUL 

W(MKDPDT) 

03115 

LSH 

AQ*2 

03116 

RJP 

ROUND 

03117 

STR 

A*W (MKT5) 

03120 

ENT 

Q*W (MK10 ) 

03121 

MUL 

W(MKQICOS) 

03122 

LSH 

AQ*2 

03123 

RJP 

ROUND 

03124 

STR 

A*W (MKTS) 

03125 

ENT 

Q*A 

03126 

MUL 

W(MKAPDT) 

03127 

LSH 

AQ*2 

03130 

RJP 

ROUND 

03131 

STR 

A*W ( MKT6) 

03132 

ENT 

Q*A 

03133 

ENT 

A»W(MKT5) 

03134 

RJP 

SSUB 

03135 

RJP 

SOVERFLOW 

03136 

STR 

A»W(MKCB1DT) 

03137 

EXIT 

03140 

COMMENT 

03141 

COMMENT 

03142 

COMMENT  ...SUBRI 

03143 

COMMENT 

03144  MXC1 

ENTRY 

03145 

ENT 

(MKQICOS) 

\ 


i 


05146 

05147 

05150 

05151 

05152 

05153 

05154 

05155 

05156 

05157 

05160 

05161 

05162 

05163 

05164 

05165 

05166 

05167 

05170 

05171 

05172 

05173 

05174 

05175 

05176 

05177 

05200 

05201 

05202 

05203 

05204 

05205 

05206 

05207 

05210 

05211 

05212 

05213 

05214 

05215 

05216 

05217 

05220 

05221 

05222 

05223 

05224 

05225 

05226 

05227 


05230 

05231 


61000  00000 
10030  07167 
22030  06600 
07000  00002 
65000  01426 
15030  07000 
10030  06726 
22030  07166 
07000  00002 
65000  01426 
15030  07001 
10030  07000 
65000  06305 
65000  06257 
15070  06736 
10030  06727 
22030  07166 
07000  00002 
65000  01426 
15030  07002 
10030  07167 
22030  06602 
07000  00002 
65000  01426 
15030  07003 
10030  07002 
65000  06324 
65000  06257 
15030  07004 
10070  00000 
22030  06562 
07000  00002 
65000  01426 
15030  07012 
10030  06577 
22030  07167 
07000  00002 
65000  01426 
15030  07005 
10070  00000 
22030  06560 
07000  00002 
65000  01426 
15030  07013 
10070  00000 
11030  07012 
65000  06324 
65000  06257 
15030  06737 
61010  05146 


X  SCALE  AT  28 
X 

X  T1-B28 
T2=S1N(0P)SIN  I 
X 
X 
X 

X  T2-B28 
B1=-(T1+T2) 

X 

X 

X  B1=B28 
T3=C0S(DP)SIN  I 
X 
X 
X 

X  T3=B28 
T4=C0S  I(MK13) 

X 

X 

X 

X 

T5=(T4-T3)D(0P/DT> 

X 

X 


X  T4-T3  IN  A (B28) 

X 

X 

X 

X  T5  AT  45 

T6=MK10  COS  I  D(A-)/DT 
X  B28 
X 
X 

X 

X  B45 
X 

X  T6  AT  45 

D(B1)/DT=T5-T6 

X 

X 

X 

X  DCBD/DT  AT  45 


61000  00000 

10030  07167  K15=SIN(DP)C0S  I 


I 


4 


-0 

uo 


03146 

MUL 

W(MKSINDP) 

03147 

LSH 

AQ*2 

03150 

RJP 

ROUND 

03151 

STR 

A*W ( MK15) 

03152 

ENT 

Q*W(MK11) 

03153 

MUL 

W(MKQISIN) 

03154 

LSH 

AQ*2 

03155 

RJP 

ROUND 

03156 

STR 

A*W ( MK14 ) 

03157 

ENT 

Q*W ( MK15 ) 

03160 

RJP 

ssua 

03161 

RJP 

SOVERFLOW 

03162 

STR 

A*W (MKCC1 ) 

03163 

ENT 

Q*W (MKQISIN) 

03164 

MUL 

W(MK10) 

03165 

LSH 

AQ*2 

03166 

RJP 

ROUND 

03167 

STR 

A*W (MK17 ) 

03170 

ENT 

Q*A 

03171 

MUL 

W(MKAPUT) 

03172 

LSH 

AQ*2 

03173 

RJP 

ROUND 

03174 

STR 

A*W ( MKT1 ) 

03175 

ENT 

QWWCMKCOSDP) 

03176 

MUL 

W(MKQICOS) 

03177 

LSH 

AQ*2 

03200 

RJP 

ROUND 

03201 

STR 

A*W(MK16) 

03202 

ENT 

Q*W (MK13) 

03203 

MUL 

W  (MKQISIN) 

03204 

LSH 

AQ*2 

03205 

RJP 

ROUND 

03206 

STR 

A*W ( MK18) 

03207 

ENT 

Q*W(MK16) 

03210 

RJP 

SADD 

03211 

RJP 

SOVERFLOW 

03212 

STR 

A*W ( MKT3) 

03213 

ENT 

Q*A 

03214 

MUL 

W(MKDPDT) 

03215 

LSH 

AG*2 

03216 

RJP 

ROUND 

03217 

STR 

A*W (MKT2) 

03220 

ENT 

Q*A 

03221 

ENT 

A*W (MKT1 ) 

03222 

RJP 

SSUB 

03223 

RJP 

SOVERFLOW 

03224 

STR 

A*W ( MKCC1DT ) 

03225 

EXIT 

03226 

COMMENT 

03227 

COMMENT  ...SUBR 

03230 

COMMENT 

03231  MXSlNdP 

ENTRY 

03232 

ENT 

A»W(MK14) 

03233 

ENT 

G*W(MK15) 

03234 

RJP 

SSUB 

03235 

RJP 

SOVERFLOW 

03236 

STR 

A*W (MKSINBP) 

03237 

ENT 

Q*28D 

03240 

RJP 

ASINX 

I 


05232  22030  06726 
05233  07000  00002 
05234  65000  01426 
05235  15030  06604 
05236  10030  06600 
05237  22030  07166 
05240  07000  00002 
05241  65000  01426 
05242  15030  06603 
05243  10030  06604 
05244  65000  06324 
05245  65000  06257 
0524b  15030  06740 
05247  10030  07166 
05250  22030  06577 
05251  07000  00002 
05252  65000  01426 
05253  15030  06606 
05254  10070  00000 
05255  22030  06560 
05256  07000  00002 
05257  65000  01426 
05260  15030  07000 
05261  10030  06727 
05262  22030  07167 
05263  07000  00002 
05264  65000  01426 
05265  15030  06605 
05266  10030  06602 
05267  22030  07166 
05270  07000  00002 
05271  65000  01426 
05272  15030  06607 
05273  10030  06605 
05274  65000  06305 
05275  65000  06257 
05276  15030  07002 
05277  10070  00000 
05300  22030  06562 
05301  1)7000  00002 
05302  65000  01426 
05303  15030  07001 
05304  10070  00000 
05305  11030  07000 
05306  65000  06324 
05307  65000  06257 
05310  15030  06741 
05311  61010  05230 


X 

X 

X 

X  026 

K14=K11SIN  I 
X 
X 
X 

X  K14-B2B 
C1=K14-K15 
X 
X 

X  028 

K17=K10SIN  I 
X 
X 
X 

X  B2fi 

Tl=Kl7D(A-)/DT 

X 

X 

X 

X  T 1  AT  45 
K16=C0S(DP)C0S  I 
X 
X 
X 

X  K16-92B 
K18=K13SIN  I 
X 
X 
X 

X  Klft-<B?8> 
T2=(Kl8+K16>D(DP)/r>T 
X 
X 


X 

X 

X 

X 

X  T2  AT  45 

DC1/DT=T2-T1 

X 

X 

X 

X  OtCD/DT  AT  45 


05312 

61000 

00000 

05313 

11030 

06603 

SIN  BP-K14-K15 

U5314 

10030 

06604 

X 

05315 

65000 

06324 

05316 

65000 

06257 

05317 

15030 

06743 

X  B2B 

05320 

10000 

00034 

Bp 

05321 

6*000 

06505 

X 

03241 

03242 

03243 

J3244 

03245 

J3246 

03247 

03250 

03251 

03252 

03253 

03254 

03255 

03256 

03257 

032&0 

03261 

032o2 

03263 

03264 

03265 

03266 

03267 

03270 

03271 

03272 

03273 

03274 

03275 

03276 

03277 

03300 

03301 

03302 

03303 

03304 

03305 

03306 

03307 

03310 

03311 

03312 

03313 

03314 

03315 

03316 

03317 

03320 

03321 

03322 

03323 

03324 

03325 

03326 

03327 

03330 

03331 

03332 

03333 


MXSINLP 


MKLCON 


MKLAG 

MKLOK 


MXSINCP 


STR  A*W ( MK8P) 

ENT  Q*270 

RJP  COSX 

STR  A*W ( MKC0S3P ) 

EXIT 

COMMENT 

COMMENT  •  •  •  SU0ROUTI  'JF  21.., 

COMMENT 

ENTRY 

ENT  A*W ( MKCbl ) 

CL  Q* APOS 
CP  Q 
RSH  AQ*2 

DIV  W<MKC0SBP>*N00F 
RJP  SOVERFLOW 

COMMENT  MAY  NEED  ROUND  OFF  HERE 
STR  Q*W ( MKT1 ) 

STR  Q*A 
ENT  Q*280 
RJP  ASINX 
RSH  A*1 
STR  A*W ( MKT2 ) 

COMMENT  CHECK  COS  OF  SUM  FOR  NEG 
COMMENT  IF  NEG  • • • ANG  =  180-AN3 
ENT  A*W(MKC0S8P> 

ENT  Q*W(MKCA1)*AP0S 
JP  MKLAG 
JP  MKLOK+QPOS 
ENT  A*W ( MKQ180 ) 

ENT  Q*  W ( MKT2 ) 

RJP  SSUB 
RJP  SOVERFLOW 
STR  A*W ( MKT2) 

JP  5+2 

JP  MKLCON+QPOS 
ENT  A*W(MKT2> 

NO-OP 

ENT  Q+W (MKQK1 ) 

RJP  SSUB 
RJP  SOVERFLOW 
STR  A*W (MKLP) 

ENT  Q*26D 

RJP  SINX 

STR  A*W (MKSINLP) 

ENT  A*W (MKLP) 

ENT  Q*26D 

RJP  COSX 

STR  A*W ( MKCOSLP ) 

EXIT 

COMMENT 

COMMENT  ...SUBROUTINE  22... 

COMMENT 

ENTRY 

ENT  Q*W (MKQISIN) 

MUL  W (MK8) 

DIV  W ( MKCOSBP ) +NOOF 
RJP  SOVERFLOW 

COMMENT  MAY  NEED  ROUND  OFF  HERE 
STR  Q+CPW (MKSINCP) 


05322 

15030 

06742 

X 

B27  RADIANS 

05323 

1C000 

00033 

COS  BP 

05324 

65000 

06343 

X 

05325 

15030 

06744 

X 

R28 

05326 

61010 

05312 

05327 

61000 

00000 

05330 

11030 

06736 

05331 

10600 

00000 

05332 

14000 

00000 

05333 

03000 

00002 

X 

SCALE  A 1  AT  R56 

05334 

23230 

06744 

X 

05335 

65000 

06257 

X 

05336 

14030 

07000 

X 

T1=R28 

05337 

14040 

00000 

T2 

!=APCSIN  T 1 

05340 

10000 

00034 

X 

05341 

65000 

06505 

X 

05342 

02000 

00001 

05343 

15030 

07001 

X 

RADIANS  B26 

05344 

11030 

06744 

05345 

10630 

06760 

05346 

61000 

05356 

05347 

60200 

05357 

ANG  OK  ...CONTINUE 

05350 

11030 

06637 

ANG  IN  WRONG  QUAD. .. SUBTRACT 

05351 

10030 

07001 

05352 

65000 

06324 

05353 

65000 

06257 

05354 

15030 

07001 

05355 

61000 

05357 

05356 

60200 

05350 

WRONG  QUAD  IF  Q  POS 

05357 

11030 

07001 

05360 

12000 

00000 

X 

05361 

10030 

07162 

LP=T2-QK1 

05362 

65000 

06324 

X 

05363 

65000 

06257 

X 

05364 

15030 

06745 

X  RAD-B27 

05365 

10000 

00032 

05366 

65000 

06354 

X 

05367 

15030 

06746 

X  B28 

05370 

11030 

06745 

COS  LP 

05371 

10000 

00032 

05372 

65000 

06343 

X 

05373 

15030 

06747 

X  828 

05374 

61010 

05327 

05375 

61000 

00000 

05376 

10030 

07166 

SIN  CP=(SIN  I ) Kfi 

05377 

22030 

06575 

X  AG-056 

05400 

23230 

06744 

X  828 

05401 

65000 

06257 

X 

05402 

14070 

06751 

t 


VJ1 


U3334 

ENT 

A*W(MKSINCP) 

03335 

ENT 

3*260 

03336 

RJP 

ASINX 

03337 

STR 

A*W ( MKCP ) 

j3340 

ENT 

0*270 

03341 

RJP 

COSX 

03342 

STR 

A*a (MKCOSCP) 

03343 

EXIT 

03344 

COMMENT 

0334b 

COMMENT  ...SUPROI 

0334b 

COMMENT 

03347  dXBPuT 

ENTrtY 

O33b0 

ENT 

A*W ( MKCC1DT ) 

03351 

CL 

G*APOS 

03352 

CP 

Q 

03353 

RSH 

A0*2 

u3354 

DIV 

W(MKCOSBP)*NOl 

03355 

RJP 

SOVERFLOW 

03356 

comment  MAY  NEED 

03357 

STR 

0*W ( MKUPDT ) 

O33b0 

EXIT 

u336l 

COMMENT 

03362 

COMMENT  • • *SUBR01 

033b3 

COMMENT 

03364  MXLPU7 

ENTRY 

033o5 

ENT 

Q*W ( MKCBl ) 

03366 

MUL 

W  (MKCA1UT ) 

033b7 

LSH 

AO  *2 

00370 

RJP 

ROUND 

03371 

STR 

A*W(MKT4) 

03372 

ENT 

0*W ( MKCA1 ) 

03373 

MUL 

W (MKCrtlDT ) 

03374 

LSH 

AQ*2 

03375 

RJP 

ROUNO 

03376 

STR 

A*W (MKTS) 

03377 

ENT 

0*W ( MKT4 ) 

U3400 

RJP 

SSUB 

03401 

RJP 

SOVERFLOW 

O3402 

STR 

A*W ( MKT 1 ) 

03403 

ENT 

Q*W ( MKCOSBP ) 

03404 

MUL 

W ( MKCOS0P ) 

03405 

LSH 

AQ*2 

03406 

RJP 

ROUNO 

03407 

STR 

A*W ( MKT3 ) 

03410 

ENT 

A* W ( MKT 1 ) 

03411 

CL 

Q*APOS 

03412 

CP 

Q 

03413 

RSH 

A0*2 

03414 

JIV 

W  (MKT3) *NOOF 

03415 

RJP 

SOVERFLOW 

03416 

COMMENT  MAY  NEED 

03417 

STR 

Q*W(MKT2> 

03420 

ENT 

A*W ( MKT2 ) 

03421 

ENT 

Q*W( MKORSDT) 

03422 

RJP 

SSUB 

03423 

RJP 

SOVERFLOW 

03424 

STR 

A*W (MKT4) 

03425 

STR 

A*W ( MKLPDT ) 

05403 

11030 

06751 

05404 

10000 

00034 

X 

05405 

65000 

06505 

X 

05406 

15030 

06750 

X 

027 

05407 

10000 

00033 

COS  CP 

05410 

65000 

06343 

05411 

15030 

06752 

X 

B20 

05412 

61010 

05375 

05413 

61000 

00000 

05414 

11030 

06741 

0(R-)/DT 

65415 

10600 

00000 

05416 

14000 

00000 

05417 

03000 

00002 

X  COS  B-=B28-SCALE 

U5420 

23230 

06744 

X 

05421 

65000 

06257 

X 

05422 

14030 

06753 

05423 

61010 

05413 

05424 

61000 

00000 

05425 

10030 

06736 

T4=B0A/DT 

05426 

22030 

06735 

X 

05427 

07000 

00002 

X 

05430 

65000 

01426 

X 

05431 

15030 

07003 

X  T4  AT  45 

05432 

10030 

06760 

T5=AD8/DT 

05433 

22030 

06737 

X 

05434 

07000 

00002 

X 

05435 

65000 

01426 

X 

05436 

15030 

07012 

X  T5  AT  45 

05437 

10030 

07003 

T1=T5-T4 

05440 

65000 

06324 

X 

05441 

65000 

06257 

X 

05442 

15030 

07000 

X  T1  AT  45 

05443 

10030 

06744 

T3=(C0S8P> (COSBP) 

05444 

22030 

06744 

X 

05445 

07000 

00002 

X 

05446 

65000 

01426 

X 

05447 

15030 

07002 

X  T3=820 

05450 

11030 

07000 

T2=T1/T3 

05451 

10600 

00000 

05452 

14000 

00000 

05453 

03000 

00002 

X  SCALE  T 1  AT  65 

05454 

23230 

07002 

X 

05455 

65000 

06257 

X 

05456 

14030 

07001 

X  T2  AT  45 

05457 

11030 

07001 

05460 

10030 

07163 

T2-RSDT 

05461 

65000 

06324 

X 

05462 

65000 

06257 

X 

05463 

15030 

07003 

X  T4  AT  45 

05464 

15030 

06754 

D(LP)/OT  AT  45 

u3*+26 

03427 

U343o 

03431 

03432 

03433 

03434 

03435 

03436 

03437 

03440 

03441 

03442 

03443 

03444 

03445 

0344b 

03447 

03450 

03451 

03452 

03453 

03454 

03455 

J345o 

03457 

JJ4O0 

03461 

03462 

03463 

03464 

u34o5 

03466 

034t>7 

03470 

03471 

03472 

03473 

03474 

03475 

o347o 

o3477 

03500 

u3501 

03502 

03503 

o3504 

03505 

03506 

03507 

03510 

03511 

03512 

03513 

03514 

03515 

03516 

03517 


MXFCL 


MXDA 


EXIT 

COMMENT 

COMMENT  • • • SUBROUTINE  25 

COMMENT 

ENTRY 

ENT  A*W (MKBPDT) 

STR  A*W (MKWX ) 

ENT  Q*W ( MKCOS0P ) 

MUL  W(MKLPOT) 

LSH  AQ*2 
RJP  ROUND 
CP  A 

STR  A*W  ( MKWY ) 

ENT  Q*w ( MKWX ) 

MUL  W (MKWX) 

RJP  ROUND 
STR  A*W(MKT1) 

ENT  Q*W(MKWY) 

MUL  W(MKWY) 

RJP  ROUND 
STR  A*W ( MKT2 ) 

ENT  Q*W ( MKT1 ) 

RJP  SADU 
RJP  SOVERFLOW 
STR  A*w ( MKT3 ) 

RSH  A*2 

RJP  SORT 
LSH  A*2 
STR  A  *W ( MKWA ) 

ENT  Q*W (MKWA) 

MUL  W(MKQBNM) 

LSH  AQ*3 
RJP  ROUND 
ENT  Q*A 
MUL  W(MKQFC) 

LSH  AQ*6 
RJP  ROUND 
STR  A*W(MKT2) 

ENT  Q*A 
MUL  W ( MK20 ) 

RSH  AQ*7 
RJP  ROUND 
STR  A*W ( MKT3 ) 

ENT  0*A 
ENT  A*w (MKT2) 

RJP  SSUd 
RJP  SOVERFLOW 
STR  A*W(MKFCL> 

EXIT 

comment 

COMMENT  ...SUBROUTINE  26. 

COMMENT 

ENTRY 

ENT  A*W ( MKWX ) 

CL  G*APOS 

CP  Q 

RSH  AQ*2 

DIV  W ( MKWA) *NOOF 


05465 

61010 

05424 

05466 

61000 

00000 

05467 

11030 

06753 

W(X)=D<BP)/DT 

05470 

15030 

06755 

X  45 

05471 

10030 

06744 

W(Y)=-COS(BP)D<LP)/DT 

05472 

22030 

06754 

X 

05473 

07000 

00002 

X 

05474 

65000 

01426 

X 

05475 

15040 

00000 

X 

05476 

15030 

06756 

X  W(Y)  AT  45 

05477 

10030 

06755 

T1=(WX) (WX) 

05500 

22030 

06755 

X 

05501 

65000 

01426 

X 

05502 

15030 

07000 

X  T 1  AT  60 

05503 

10030 

06756 

T2=(WY) (WY) 

05504 

22030 

06756 

X 

05505 

65000 

01426 

X 

05506 

15030 

07001 

X  T 2  AT  60 

05507 

10030 

07000 

T3=T1+T2 

05510 

65000 

06305 

X 

05511 

65000 

06257 

X 

05512 

15030 

07002 

X  T3  AT  60 

05513 

02000 

00002 

X  SCALE  AT  B26  FOR 

C" 

SORT  ROUTJN 

05514 

65000 

06441 

u 

WA=  SORT (T3) 

05515 

06000 

00002 

X  SCALE  AT  4K  FOR 

STORE 

05516 

15030 

06757 

X  W ( A )  AT  45 

05517 

10030 

06757 

T2=2F8WA 

05520 

22030 

06633 

X 

05521 

07000 

00003 

05522 

65000 

01426 

X 

05523 

10070 

00000 

X  A=2  9  W ( A ) 

B45 

05524 

22030 

06632 

X  F=B23 

05525 

07000 

00006 

X 

05526 

65000 

01426 

05527 

15030 

07001 

X  T2=B22  CHECK  MAX 

05530 

10070 

00000 

T2(T1)=T3 

05531 

22030 

06611 

X 

05532 

03000 

00007 

X 

05533 

65000 

01426 

X 

05534 

15030 

07002 

X  T3=B22 

05535 

10070 

00000 

FCL=T2-T3 

05536 

11030 

07001 

X 

05537 

65000 

06324 

X 

05540 

65000 

06257 

X 

05541 

15030 

06557 

X  B22-MAX=177(B) 

05542 

61010 

05466 

05543 

61000 

noooo 

05544 

11030 

06755 

SIN  DA 

05545 

10600 

00000 

05546 

14000 

00000 

05547 

03000 

00002 

X  SCALE  AT  65 

05550 

23230 

06757 

X 

3 


-1 

-o 


03520 

RJP 

SOVERFLOW 

03521 

COMMENT  MAY  NEED 

03522 

STR 

Q*W (MKSINDDA) 

03523 

ENT 

A*W(MKWY> 

03524 

CL 

Q*APOS 

03525 

CP 

Q 

03526 

RSH 

AQ*2 

03527 

DIV 

W (MKWA) *NOOF 

03530 

RJP 

SOVERFLOW 

03531 

COMMENT  MAY  NEED 

03532 

STR 

Q*W ( MKCOSDDA) 

03533 

EXIT 

03534 

COMMENT 

03535 

COMMENT  ...SUBROl 

03536 

COMMENT 

03537  MXXYZ 

ENTRY 

03540 

ENT 

A*W (MKPOSSW ) 

03541 

SUB 

A*2*ANEG 

03542 

EXIT 

03543 

COMMENT 

03544 

COMMENT  CALCULATI 

03545 

COMMENT 

03546 

ENT 

Q*W (MKSINLP) 

03547 

MUL 

W(MKZS) 

03550 

LSH 

AQ*2 

03551 

RJP 

ROUND 

03552 

STR 

A*W (MKT2) 

03553 

ENT 

Q*W (MKCOSLP) 

03554 

MUL 

W(MKXS) 

03555 

LSH 

AQ*2 

03556 

RJP 

ROUND 

03557 

STR 

A*W ( MKT 1 ) 

03560 

ENT 

Q*W (MKT2) 

03561 

RJP 

SSUB 

03562 

RJP 

SOVERFLOW 

03563 

STR 

A*W ( MKXO ) 

03564 

COMMENT 

03565 

COMMENT  CALCULATI 

03566 

COMMENT 

03567 

ENT 

0*W ( MKZS ) 

03570 

MUL 

w(mkcoslp) 

03571 

LSH 

AQ*2 

03572 

RJP 

ROUND 

03573 

STR 

A*W (MKT9) 

03574 

ENT 

Q*A 

03575 

MUL 

W(MKSINBP) 

03576 

LSH 

AQ*2 

03577 

RJP 

ROUND 

O3600 

STR 

A*W(MKT5) 

03601 

ENT 

Q*W ( MKSINLP ) 

03602 

MUL 

W(MKXS) 

03603 

LSH 

AQ*2 

03604 

RJP 

ROUND 

03605 

STR 

A*W (MKT10 ) 

03606 

ENT 

Q*A 

03607 

MUL 

W(MKSINBP) 

03610 

LSH 

AQ*2 

03611 

RJP 

ROUND 

05551 

65000 

06257 

X 

05552 

14030 

06762 

X 

05553 

11030 

06756 

COS  OA 

05554 

10600 

00000 

05555 

14000 

00000 

05556 

03000 

00002 

X 

05557 

23230 

0b757 

X 

05560 

65000 

06257 

X 

05561 

14030 

06761 

X 

05562 

61010 

05543 

05563 

05564 

61000 

11030 

00000 

06656 

0  OR  1  IF  INPUT  SELENOGPAPHIC 

05565 

05566 

21700 

61010 

00002 

05563 

NO-EXIT 

05567 

10030 

06746 

T2-Z (S) SINLP 

05570 

22030 

06551 

X  B2R 

05571 

07000 

00002 

X 

05572 

65000 

01426 

X 

05573 

15030 

07001 

X  T2=B23 

05574 

10030 

06747 

T1=X(S)C0SLP 

05575 

22030 

06547 

X 

05576 

07000 

00002 

X 

05577 

65000 

01426 

X 

05600 

15030 

07000 

X  T1=P28 

05601 

10030 

07001 

X(0)=T1-T2 

05602 

65000 

06324 

X 

05603 

65000 

06257 

X 

05604 

15030 

06544 

X  X(0)=B?B 

05605 

10030 

06551 

T5=Z(S)C0SLPSINBP 

05606 

22030 

06747 

X 

05607 

07000 

00002 

X 

05610 

65000 

01426 

X 

05611 

15030 

07006 

X  T9=Z<S>C0SLP  (B23) 

05612 

10070 

00000 

X 

05613 

22030 

06743 

X 

05614 

07000 

00002 

X 

05615 

65000 

01426 

X 

05616 

15030 

07012 

X  T5=B28 

05617 

10030 

06746 

T4=X(S>SINBPSIMLP 

05620 

22030 

06547 

X 

05621 

07000 

00002 

X 

05622 

65000 

01426 

X 

05623 

15030 

07007 

X  T10=X(S)SINLP(B26) 

05624 

10070 

00000 

X 

05625 

22030 

06743 

X 

05626 

07000 

00002 

X 

05627 

65000 

01426 

X 

• 

03612 

STR 

A*W (MKT4 ) 

C5630 

15030 

07003 

X  T4=R28 

• 

03613 

ENT 

G*W(MKYS) 

05631 

10030 

06550 

T3=Y(S)C0SBP 

• 

03614 

MUL 

W(MKCOSBP) 

05632 

22030 

06744 

X 

• 

03615 

LSH 

AQ*2 

05633 

07000 

00002 

X 

• 

03616 

RJP 

ROUND 

05634 

65000 

01426 

X 

• 

03617 

STR 

A*to (MKT3 ) 

05635 

15030 

07002 

X  T3=B28 

• 

03620 

ENT 

Q*to (MKT4 ) 

05636 

10030 

07003 

Y(0)=T3-T4-T5 

• 

03621 

RJP 

SSUB 

05637 

65000 

06324 

X 

t 

03622 

RJP 

SOVERFLOW 

05640 

65000 

06257 

X 

• 

03623 

ENT 

Q*W(MKT5> 

05641 

10030 

07012 

X 

• 

03624 

RJP 

SSUB 

05642 

65000 

06324 

X 

• 

03625 

RJP 

SOVERFLOW 

05643 

65000 

06257 

X 

t 

03626 

STR 

A*W ( MKYO ) 

05644 

15030 

06545 

X  Y(0)=B28 

t 

03627 

COMMENT 

• 

03630 

COMMENT  CLACULATE  Z<0) 

• 

03631 

comment 

• 

03632 

ENT 

Q*W (MKCOSBP ) 

05645 

10030 

06744 

T6=X<S>SINLPC0SRP 

• 

03633 

MUL 

W(MKTIO) 

05646 

22030 

07007 

X  T6=T10C0SBP 

t 

03634 

LSH 

AQ*2 

05647 

07000 

00002 

X 

• 

03635 

RJP 

ROUND 

05650 

65000 

01426 

X 

• 

03636 

STR 

A*W (MKT6 ) 

05651 

15030 

07013 

X  T6=B28 

• 

03637 

ENT 

Q*W(MKYS) 

05652 

10030 

06550 

T7=Y(S)SINBP 

• 

03640 

MUL 

W(MKSINBP) 

05653 

22030 

06743 

X 

• 

03641 

LSH 

AQ*2 

05654 

07000 

00002 

X 

• 

03642 

RJP 

ROUND 

05655 

65000 

01426 

X 

• 

03643 

STR 

A*W(MKT7) 

05656 

15030 

07004 

X  T7=B28 

• 

03644 

ENT 

Q*to (MKCOSBP ) 

05657 

10030 

06744 

T8=Z  C  S ) COSLPCOSBP 

• 

03645 

MUL 

to (MKT9) 

05660 

22030 

07006 

X  T8=T9C0SBP 

t 

03646 

LSH 

AQ*2 

05661 

07000 

00002 

X 

t 

03647 

RJP 

ROUND 

05662 

65000 

01426 

X 

oo 

• 

03650 

STR 

A*to(MKT8> 

05663 

15030 

07005 

X  TR=B28 

• 

03651 

ENT 

Q*to (MKT6 ) 

05664 

10030 

07013 

Z ( 0 ) -T6+T7+T8 

• 

03652 

RJP 

SADD 

05665 

65000 

06305 

X 

• 

03653 

RJP 

SOVERFLOW 

05666 

65000 

06257 

X 

• 

03654 

ENT 

Q*to (MKT7) 

05667 

10030 

07004 

X 

• 

03655 

RJP 

SADD 

05670 

65000 

06305 

X 

• 

03656 

RJP 

SOVERFLOW 

05671 

65000 

06257 

X 

• 

03657 

STR 

A*W(MKZO) 

05672 

15030 

06546 

X  Z(0)=B?fl 

• 

03660 

EXIT 

05673 

61010 

05563 

• 

03661 

COMMENT 

• 

03662 

COMMENT  •♦.SUBROUTINE 

28«  • 

• 

• 

03663 

COMMENT 

• 

03664  MXDELALF 

ENTRY 

05674 

61000 

00000 

• 

03665 

ENT 

A*W (MKQBER ) 

05675 

11030 

06634 

B  IN  ER  AT  B29 

• 

03666 

CL 

Q*APOS 

05676 

10600 

00000 

• 

03667 

CP 

Q 

05677 

14000 

00000 

• 

03670 

RSH 

AQ*  1 

05700 

03000 

00001 

X 

• 

03671 

DIV 

W (MKRO) *NOOF 

05701 

23230 

06554 

X 

• 

03672 

RJP 

SOVERFLOW 

05702 

65000 

06257 

X 

• 

03673 

COMMENT  MAY  NEED  ROUNU 

OFF 

HERE 

• 

03674 

STR. 

Q*W (MKS) 

05703 

14030 

06765 

X  S  AT  35 

• 

03675 

ENT 

A*W ( MKS ) 

05704 

11030 

06765 

T1=S/C0SDP 

• 

03676 

CL 

Q*APOS 

05705 

10600 

00000 

• 

03677 

CP 

Q 

05706 

14000 

00000 

• 

03700 

RSH 

AQ*2 

05707 

03000 

00002 

• 

03701 

DIV 

w(mkcosdp)*noof 

05710 

23230 

06727 

X 

• 

03702 

RJP 

SOVERFLOW 

05711 

65000 

06257 

X 

• 

03703 

COMMENT  MAY  NEED  ROUNO 

OFF 

HERE 

• 

/ 

03704 

• 

STR 

Q*W ( MKT1 ) 

05712 

14030 

07000 

f  1 

4 


037ub 

ENT 

Q*W (MKXO ) 

05713 

10030 

06544 

T2=X(0)C0SCP 

03706 

MUL 

W (MKCOSCP ) 

05714 

22030 

06752 

X 

u3707 

LSH 

AQ*2 

05715 

07000 

00002 

X 

U3710 

RJP 

ROUND 

05716 

65000 

01426 

X 

03711 

STR 

A*W (MKT2) 

05717 

15030 

07001 

X  T2-B28 

03712 

ENT 

Q*W (MKYO ) 

05720 

10030 

06545 

T3=Y(0)SINCP 

03713 

MUL 

W(MKSINCP) 

05721 

22030 

06751 

X 

03714 

LSH 

AQ*2 

05722 

07000 

00002 

X 

0371b 

RJP 

ROUND 

05723 

65000 

01426 

X 

03716 

STR 

A*W (MKT3) 

05724 

15030 

07002 

X  T3=P28 

03717 

ENT 

G*W(MKT2> 

05725 

10030 

07001 

T4=T2*T3 

03720 

RJP 

SSUB 

05726 

65000 

06324 

X 

03721 

RJP 

SOVERFLOW 

05727 

65000 

06257 

X 

03722 

STR 

A*W ( MKT4 ) 

05730 

15030 

07003 

X  T4=B28 

03723 

ENT 

Q*W  ( MKT4 ) 

05731 

10030 

07003 

0ELALF=(T4) <T1> 

03724 

MUL 

W(MKT1) 

05732 

22030 

07000 

X 

0372b 

LSH 

AQ*2 

05733 

07000 

00002 

X 

03726 

RJP 

ROUND 

05734 

65000 

01426 

X 

03727 

STR 

A*W (MKDELALF) 

05735 

15030 

06764 

X  DELALF  AT  B35 

03730 

ENT 

Q*W (MKXO ) 

05736 

10030 

06544 

T5=X(0)  SIN  CP 

03731 

MUL 

W(MKSINCP) 

05737 

22030 

06751 

X 

03732 

LSH 

AG*2 

05740 

07000 

00002 

X 

03733 

STR 

A*W (MKT5 ) 

05741 

15030 

07012 

X  T5=B28 

03734 

ENT 

Q*# (MKYO ) 

05742 

10030 

06545 

T6=Y(0)C0SCP 

03735 

MUL 

W (MKCOSCP ) 

05743 

22030 

06752 

X 

03736 

LSH 

AQ*2 

05744 

07000 

00002 

X 

03737 

RJP 

ROUND 

05745 

65000 

01426 

X 

03740 

STR 

A*W (MKT6) 

05746 

15030 

07013 

X  T6=B28 

03741 

ENT 

G*W (MKTS) 

05747 

10030 

07012 

T7=T6-T5 

03742 

RJP 

SADD 

05750 

65000 

06305 

X 

03743 

RJP 

SOVERFLOW 

05751 

65000 

06257 

X 

03744 

STR 

A*W (MKT7 ) 

05752 

15030 

07004 

X  T7=B28 

0374b 

ENT 

Q*A 

05753 

10070 

00000 

DELDEL=(T7) (S) 

03746 

MUL 

W(MKS) 

05754 

22030 

06765 

X 

03747 

LSH 

AQ*2 

05755 

07000 

00002 

X 

03750 

RJP 

ROUND 

05756 

65000 

01426 

X 

03751 

STR 

A*W(MKOELDEL> 

05757 

15030 

06763 

X  DELDEL  AT  B35 

03752 

EXIT 

05760 

61010 

05674 

03753 

COMMENT 

03754 

COMMENT  . . .SUBROUTINE 

29 ... 

0375b 

COMMENT 

03756  MXDPJOP 

ENTRY 

05761 

61000 

00000 

03757 

ENT 

Q*W(MKS) 

05762 

10030 

06765 

S2=(S>  <S> 

03760 

MUL 

W(MKS) 

05763 

22030 

06765 

X 

03761 

RSH 

AQ*6 

05764 

03000 

00006 

X 

03762 

RJP 

ROUND 

05765 

65000 

01426 

X 

03763 

STR 

A*W ( MKS2 ) 

05766 

15030 

06775 

X  SXS  B34 

03764 

ENT 

Q*W(MKS) 

05767 

10030 

06765 

T1=Z(0)S 

03765 

MUL 

W(MKZO) 

05770 

22030 

06546 

X 

03766 

LSH 

AQ*2 

05771 

07000 

00002 

X 

037e7 

RJP 

ROUND 

05772 

65000 

01426 

X 

03770 

STR 

A*W(MKT1) 

05773 

15030 

07000 

X  2T1  AR  34 

03771 

ENT 

Q*A 

05774 

10070 

00000 

RTZ2-1-2T1+S2 

03772 

ENT 

A*W (MKS2 ) 

05775 

11030 

06775 

X  B28 

03773 

RJP 

SSUB 

05776 

65000 

06324 

X 

03774 

RJP 

SOVERFLOW 

05777 

65000 

06257 

X 

03775 

RSH 

AQ*6 

06000 

03000 

00006 

X  PACK  TO  28 

03776 

STR 

A*W ( MKT5) 

06001 

15030 

07012 

X 

03777 

COMMENT  FOLLOWING  RTX 

AS  BEEN 

CHANGEO 

TO  B2B 


04000 

ENT 

Q*W ( MK0NE28 ) 

06002 

10030 

06627 

X 

040U1 

RJP 

SADD 

06003 

65000 

06305 

X 

04002 

RJP 

SOVERFLOW 

06004 

65000 

06257 

X 

04003 

STR 

A*tf (MKRTX2) 

06005 

15030 

06771 

X  R28 

U4004 

RSH 

A*2 

06006 

02000 

00002 

SCALE  AT  B26  FOR 

SWRT  ROUTINE 

0400b 

RJP 

SORT 

06007 

65000 

06441 

X 

04006 

LSH 

A*1 

06010 

06000 

00001 

SCALE  AT  B28  FOR 

STORAGE 

U4007 

STR 

A*W (MKRTX) 

06011 

15030 

06772 

X  RTX  B20 

04010 

ENT 

Q*W( MKRTX) 

06012 

10030 

06772 

DP=DELAY(RTX> 

04011 

MUL 

W(MKDELAY) 

06013 

22030 

06555 

X  DELAY=B27 

04012 

LSH 

AQ*2 

06014 

07000 

00002 

u4013 

RJP 

ROUND 

06015 

65000 

01426 

X 

U4014 

STR 

A*W ( MKDPX ) 

06016 

15030 

06773 

X  DP  B27 

0401b 

ENT 

A*W (MK0NE28) 

06017 

11030 

06627 

T2=1-T1 

04016 

ENT 

Q*W (MKT 1 ) 

06020 

10030 

07000 

X 

04017 

RSH 

Q*7 

06021 

01000 

00007 

X 

04020 

RJP 

SSUB 

06022 

65000 

06324 

X 

04021 

RJP 

SOVERFLOW 

06023 

65000 

06257 

X 

04022 

STR 

A*W ( MKT2 ) 

06024 

15030 

07001 

X  T2=B28 

04023 

ENT 

A*W ( MKDOPP ) 

06025 

11030 

06564 

T3=D0PP/RTX  812 

04024 

CL 

Q+APOS 

06026 

10600 

00000 

0402b 

CP 

Q 

06027 

14000 

00000 

04026 

RSH 

AQ*2 

06030 

03000 

00002 

04027 

DIV 

W (MKRTX ) *NOOF 

06031 

23230 

06772 

X  B28 

04030 

RJP 

SOVERFLOW 

06032 

65000 

06257 

04031 

comment  may  neeo 

ROUND 

OFF 

HERE 

04032 

STR 

Q*W ( MKT3 ) 

06033 

14030 

07002 

X  T3=B12 

04033 

MUL 

W (MKT2) 

06034 

22030 

07001 

X 

04034 

LSH 

AQ*2 

06035 

07000 

00002 

X 

04035 

RJP 

ROUND 

06036 

65000 

01426 

X 

04036 

STR 

A*W(MKD0P1 ) 

06037 

15030 

06766 

X  D0P1=B12 

04037 

ENT 

Q*W (MKYO ) 

06040 

10030 

06545 

CALCULATE  XD 

04040 

MUL 

W(MKSINDDA) 

06041 

22030 

06762 

04041 

LSH 

AQ*2 

06042 

07000 

00002 

X 

04042 

RJP 

ROUND 

06043 

65000 

01426 

X 

04043 

STR 

A*W ( MKT7 ) 

06044 

15030 

07004 

X 

04044 

ENT 

G*W ( MKXO ) 

06045 

10030 

06544 

X 

U4045 

MUL 

W(MKCOSDDA) 

06046 

22030 

06761 

0404b 

LSH 

AQ*2 

06047 

07000 

00002 

X 

04047 

RJP 

ROUND 

06050 

65000 

01426 

X 

U4050 

STR 

A*W (MKT6 

06051 

15030 

07013 

X 

04051 

ENT 

Q*W(MKT7) 

06052 

10030 

07004 

X 

04052 

RJP 

SSUB 

06053 

65000 

06324 

X 

04053 

RJP 

SOVERFLOW 

06054 

65000 

06257 

X 

04054 

STR 

A*W ( MKXD 

06055 

15030 

06776 

X  028 

04055 

ENT 

A*W ( MKFCL) 

06056 

11030 

06557 

T4=FCL/RTX 

04056 

CL 

Q+APOS 

06057 

10600 

00000 

04057 

CP 

G 

06060 

14000 

00000 

04060 

RSH 

AQ+12D 

06061 

03000 

00014 

04061 

DIV 

W ( MKRTX ) *NOOF 

06062 

23230 

06772 

XB28 

04062 

RJP 

SOVERFLOW 

06063 

65000 

06257 

X 

04063 

COMMENT  MAY  NEED 

ROJND 

OFF 

HERE 

04064 

STR 

Q*W ( MKT4 ) 

06064 

14030 

07003 

X  T4  AT  12 

04065 

MUL 

W (MKXD) 

06065 

22030 

06776 

D0P2=XDC(T4) 

04066 

LSH 

AG*2 

06066 

07000 

00002 

X 

04067 

RJP 

ROUND 

06067 

65000 

01426 

X 

04070 

STR 

A*W(MKD0P2) 

06070 

15030 

06767 

X  D0P2  AT  12 

04071 

STR 

A*Q 

04072 

RSH 

A*4 

04073 

STR 

A*CPW(M00ND0P2S) 

04074 

ENT 

A*W (MKD0P1 ) 

04075 

RJP 

SSUB 

04076 

RJP 

SOVERFLOW 

04077 

STR 

A*W(MKDOPPLER) 

04100 

ENT 

A*W(MKDELALF) 

04101 

RSH 

AQ*9D 

04102 

RJP 

ROUND 

04103 

ADD 

A*W (MKALFP) 

04104 

ENT 

Q*A 

04105 

MUL 

W(REVSRADIAN) 

04106 

RJP 

ROUND 

04107 

STR 

A*W(RA) 

04110 

ENT 

A*W(MKDELDEL) 

04111 

RSH 

AQ*9D 

04112 

RJP 

ROUND 

04113 

ADD 

A*W ( MKDP) 

04114 

ENT 

Q*A 

04115 

MUL 

W (REVSRADIAN) 

04116 

RJP 

ROUND 

04117 

STR 

A*W (DEC) 

04120 

ENT 

Q*W(MKRTX) 

04121 

MUL 

W(MKRO) 

04122 

LSH 

AQ*1 

04123 

RJP 

ROUND 

04124 

STR 

A*W ( RADIUS) 

04125 

ENT 

Q*W ( MKT2 ) 

04126 

MUL 

W(MKRODT) 

04127 

RSH 

AQ*5 

04130 

RJP 

ROUND 

04131 

STR 

A*W (MKT8) 

04132 

ENT 

Q*W (MKQBNM) 

04133 

MUL 

W(MKWA) 

04134 

RJP 

ROUND 

04135 

ENT 

Q*A 

04136 

MUL 

W(MKXD) 

04137 

RSH 

AQ*7 

04140 

RJP 

ROUND 

04141 

add 

A*W ( MKT8) 

04142 

CL 

Q*APOS 

04143 

CP 

Q 

04144 

DIV 

W(MKRTX) 

04145 

STR 

Q*W ( RADIUSDOT) 

04146 

ENT 

Q*W ( MKT2 ) 

04147 

MUL 

1 

04150 

LSH 

AQ*28D 

04151 

DIV 

W(MKRTX) 

04152 

STR 

Q*W(DOPF ACTORS 

04153 

EXIT 

04154 

COMMENT 

04155  ATAN 

JP 

ATAN 

04156 

STR 

A*W(ATAN+62D)*AP0S 

04157 

CP 

A 

04160 

STR 

Q*W(ATAN+63D)*QP0S 

04161 

CP 

Q 

04162 

STR 

A-Q*W(ATAN+64D) 

04163 

ENT 

Y+Q*A 

I 


06071 

15000 

00000 

D0PPLER=D0Pl-D0P2 

06072 

02000 

00004 

06073 

15070 

63170 

06074 

11030 

06766 

X 

06075 

65000 

06324 

X 

06076 

65000 

06257 

X 

06077 

15030 

06770 

X  OOPPLER  AT 

12 

06100 

11030 

06764 

SCALED  AT  35 

06101 

03000 

00011 

SCALE  AT  26 

06102 

65000 

01426 

06103 

20030 

06561 

SCALED  AT  26 

06104 

10070 

00000 

06105 

22030 

01047 

06106 

65000 

01426 

06107 

15030 

63002 

06110 

11030 

06763 

SCALED  AT  35 

06111 

03000 

00011 

SCALE  AT  26 

06112 

65000 

01426 

06113 

20030 

06563 

06114 

10070 

00000 

06115 

22030 

01047 

06116 

65000 

01426 

06117 

15030 

63003 

06120 

10030 

06772 

AT  B28 

06121 

22030 

06554 

AT  023 

06122 

07000 

00001 

AT  B52 

06123 

65000 

01426 

06124 

15030 

63006 

06125 

10030 

07001 

AT  328 

06126 

22030 

06556 

06127 

03000 

00005 

AT  852 

06130 

65000 

01426 

06131 

15030 

07005 

AT  B52 

06132 

10030 

06633 

06133 

22030 

06757 

06134 

65000 

01426 

06135 

10070 

00000 

06136 

22030 

06776 

06137 

03000 

00007 

AT  052 

06140 

65000 

01426 

06141 

20030 

07005 

06142 

10600 

00000 

06143 

14000 

00000 

06144 

23030 

06772 

AT  B28 

06145 

14030 

63011 

AT  B24 

06146 

10030 

07001 

B28 

06147 

22000 

OOOOl 

06150 

07000 

00034 

06151 

23030 

06772 

06152 

14030 

63167 

B28 

06153 

61010 

05761 

06154 

61000 

06154 

06155 

15630 

06252 

06156 

15040 

00000 

SET  POSITIVE 

06157 

14230 

06253 

06160 

14000 

00000 

SET  POSITIVE 

06161 

33030 

06254 

FLAG  BEARS  SIGN  (SYS-SXS) 

06162 

30070 

00000 

RESTORE  A 

04164 

COM 

Q*A* YLESS 

04165 

LSH 

AQ*30D 

04166 

STR 

Q*W( ATAN+65D) 

04167 

RSH 

AQ*2 

04170 

DIV 

W ( ATAN+65D) *NOOF 

04171 

JP 

L(ATAN) 

04172 

STR 

Q*#f  ( ATAN+65D) 

04173 

SUB 

A*A 

04174 

LSH 

AQ*6*QP0S 

04175 

ADD 

A*1 

04176 

ENT 

B7*A 

04177 

STR 

Q*W ( ATAN+66D) 

04200 

ENT 

Q*A 

04201 

MUL 

W ( ATAN+65D) 

04202 

ADD 

A*4 

04203 

RSH 

AQ*4 

04204 

STR 

Q*W ( ATAN+65D) 

04205 

ENT 

A*W ( ATAN+66D ) 

04206 

RSH 

AQ*8D 

04207 

OIV 

W ( AT  AN+65D ) 

04210 

STR 

Q*W ( ATAN+65D) 

04211 

MUL 

W( ATAN+65D) 

04212 

DIV 

W( ATAN+43D) 

04213 

MUL 

W( ATAN+65D) 

04214 

ADD 

A*W( ATAN+65D) 

04215 

ADD 

A*W ( ATAN+45D+B7) 

04216 

ENT 

Q*W ( ATAN+640) *QNEG 

04217 

SUB 

A*W(ATAN+44D)*$KIP 

04220 

CP 

A 

04221 

RSH 

A*1 

04222 

ENT 

Q*W ( ATAN+63D) ♦QPOS 

04223 

ADD 

A*W ( ATAN+44D) *SK IP 

04224 

CP 

A 

04225 

ENT 

Q*tf(ATAN+62D)*GP0S 

04226 

CP 

A 

04227 

JP 

L(ATAN) 

04230 

63774 

42363 

04231 

31103 

75524 

04232 

0 

0 

04233 

00777 

25336 

04234 

01772 

55652 

04235 

02756 

27552 

04236 

03726 

67277 

04237 

04661 

16716 

04240 

05573 

03120 

04241 

06462 

35661 

04242 

07326 

14701 

04243 

10145 

37512 

04244 

10740 

02726 

04245 

11505 

74016 

04246 

12227 

43722 

04247 

12725 

42304 

04250 

13400 

51742 

04251 

14031 

64134 

04252 

14441 

76652 

04253 

0 

0 

04254 

0 

0 

06163 

04270 

00000 

06164 

07000 

00036 

06165 

14030 

06255 

06166 

03000 

00002 

06167 

23230 

06255 

06170 

61010 

06154 

06171 

14030 

06255 

06172 

21070 

00000 

06173 

07200 

00006 

06174 

20000 

00001 

06175 

12770 

00000 

06176 

14030 

06256 

06177 

10070 

00000 

06200 

22030 

06255 

06201 

20000 

00004 

06202 

03000 

00004 

MIN  ($Y$#SX$>  TO  A 
INTERCHANGE  A»Q 
DIVISOR  0  MAX  ( SYS t TYT ) 

SCALE  DIVIDEND  AT  26 
DIVISOR  AT  0 

QUOTIENT  AT  28 
CLEAR  ACCUMULATOR 
ROUND  TO  NEAREST  16TH 

LOAD  INDEX  REGISTER  FOR  TABLE 
LO 

Y-YR  AT  34 
YR  AT  4 

Y  YR  AT  4+28  32 

4  1  AT  2  +  30  32 

SCALE  AT  1  +  Y  YR  AT  28  IN  Q 


06203  14030  06255 
06204  11030  06256 
06205  03000  00010 
06206  23030  06255 
06207  14030  06255 
06210  22030  06255 
06211  23030  06227 
06212  22030  06255 
06213  20030  06255 
06214  20037  06231 
06215  10330  06254 
06216  21130  06230 
06217  15040  00000 
06220  02000  00001 
06221  10230  06253 
06222  20130  06230 
06223  15040  00000 
06224  10230  06252 
06225  15040  00000 
06226  61010  06154 
06227  63774  42363 
06230  31103  75524 
06231  00000  00000 
06232  00777  25336 
06233  01772  55652 
06234  02756  27552 
06235  03726  67277 
06236  04661  16716 
06237  05573  03120 
06240  06462  35661 
06241  07326  14701 
06242  10145  37512 
06243  10740  02726 
06244  11505  74016 
06245  12227  43722 
06246  12725  42304 
06247  13400  51742 
06250  14031  64134 
06251  14441  76652 
06252  00000  00000 
06253  00000  00000 


Y  YP  AT  34 

SCALE  DIVIDEND  AT  34-8+30 
( Y-Y ) / ( 1+Y  YR) 

2  AT  28 

Z  2  AT  56 

-3  AT  26»Q  AT  56-26  30 
-Z  3/3  AT  28 
Z  -  Z  3/3  AT  28 
ADD  TABLE  ENTRY 
CHECK  SIGN  (SYSrSXS) 
COMPLEMENT  ANGLE 
SET  NEGATIVE 
RESULT  AT  27 

SUPPLEMENT  IF  X  NEGATIVE 
PI/2  AT  28  PI  AT  27 
SET  POSITIVE 
ACCOPD  PROPER  SIGN 

EXTT 

3.0016901  AT  26 
PI/2  AT  28  PI  AT  27 
ARCT AN ( 00/16 )  AT  25 
1 
2 

3 

4 

5 

6 
7 
6 

9 

10 
11 
12 

13 

14 

15 

16 

temporaries 


f 


s 


00 

U) 


0425b 

0 

0 

04256 

0 

0 

04257 

0 

0 

04260 

SOVERFLGW 

ENTRY 

042ol 

ENT 

Q*L(S0VERFL0W) 

04262 

SUB 

Q*1 

04263 

LSH 

Q*15D 

04264 

ENT 

A*6060606060 

04265 

ENT 

07*4 

04266 

LSH 

A*3 

04267 

LSH 

AQ*3 

04270 

BJP 

B7*i-2 

04271 

STR 

A*W(S0VSTR) 

04272 

RJP 

U(PRLOG) 

04273 

6 

SOVMSG 

04274 

1 

0 

04275 

NO-OP 

04276 

CL 

A 

04277 

04300 

SOVMSG 

EXIT 

fd 

5*ARITHMETIC  OVERFLOW 

04301 

SOVSTR 

0 

04302 

COMMENT 

04303 

COMMENT 

u4304 

SADD 

ENTRY 

04305 

JP 

SADD1*ANEG 

04306 

JP 

SADD2*<3NEG 

04307 

STR 

A+Q*to (TEMP) *APOS 

04310 

EXIT 

04311 

JP 

SADXT 

04312 

ENT 

B7*L(S0VERFL0W) 

04313 

SAUDI 

JP 

SADD2*QP0S 

04314 

STR 

A+Q*W<TEMP)*ANEG 

04315 

EXIT 

04316 

JP 

SADXT 

04317 

SADD2 

STR 

A+Q*W (TEMP) 

04320 

SADXT 

RPL 

Y+1*L<SADD> 

04321 

ENT 

A*W (TEMP) 

04322 

EXIT 

04323 

COMMENT 

04324 

COMMENT 

04325 

SSUB 

ENTRY 

04326 

JP 

SSUB1*ANEG 

04327 

JP 

SSUB2*QP0S 

04330 

STR 

A-Q*W (TEMP) *AP0S 

04331 

EXIT 

04332 

JP 

SSBXT 

04333 

SSUBl 

JP 

SSU02*QNEG 

04334 

STR 

A-Q*W(TEMP)*ANEG 

04335 

EXIT 

04336 

JP 

SSBXT 

04337 

SSUB2 

STR 

A-Q*W ( TEMP ) 

04340 

SSfaXT 

RPL 

Y+1*L(SSUB) 

04341 

ENT 

A*W ( TEMP ) 

04342 

EXIT 

04343 

TEMP 

0 

0 

I 


06254 

00000 

00000 

06255 

00000 

00000 

06256 

00000 

00000 

06257 

61000 

00000 

06260 

10010 

06257 

06261 

27000 

00001 

06262 

05000 

00017 

06263 

11030 

07424 

06264 

12700 

00004 

06265 

06000 

00003 

06266 

07000 

00003 

06267 

72700 

06265 

06270 

15030 

06304 

06271 

65020 

63423 

06272 

00006 

06277 

06273 

00001 

00000 

06274 

12000 

00000 

06275 

11000 

00000 

06276 

61010 

06257 

06277 

06271 

63115 

06300 

22123 

11610 

06301 

05243 

31227 

06302 

13212 

43405 

06303 

06310 

50505 

06304 

00000 

00000 

06305 

61000 

00000 

06306 

60700 

06314 

06307 

60300 

06320 

06310 

32630 

06342 

06311 

61010 

06305 

ERROR 

06312 

61000 

06321 

06313 

12710 

06257 

06314 

60200 

06320 

06315 

32730 

06342 

06316 

61010 

06305 

ERROR 

06317 

61000 

06321 

06320 

32030 

06342 

06321 

36010 

06305 

06322 

11030 

06342 

06323 

61010 

06305 

NORMAL 

06324 

61000 

00000 

06325 

60700 

06332 

06326 

60200 

06336 

06327 

33630 

06342 

06330 

61010 

06324 

error 

06331 

61000 

06337 

06332 

60300 

06336 

06333 

33730 

06342 

06334 

61010 

06324 

ERROR 

06335 

61000 

06337 

06336 

33030 

06342 

06337 

36010 

06324 

06340 

11030 

06342 

06341 

61010 

06324 

NORMAL 

06342 

00000 

00000 

CD 

-P- 


04344 

COMMENT 

U4345 

COMMENT 

04346  COS 

ENTRY 

04347 

ENT 

B7*L (COS ) 

043b0 

STR 

B7*L(SIN> 

04351 

ENT 

B7*l 

04352 

STR 

B7*L(C0S+32> 

04353 

JP 

S+2*AP0S 

04354 

CP 

A*A2ER0 

04355 

JP 

S+4+AN0T 

04356 

ENT 

A*W ( COS+66 ) 

04357  SIN 

ENTRY 

04360 

CL 

L<$+20> 

04361 

STR 

A*W ( COS+74 ) *APOS 

04362 

CP 

A 

04363 

RPT 

290 

04364 

LSH 

A*1*ANEG 

04365 

EXIT 

J43b6 

LSH 

A*29D 

04367 

SUB 

Q*B7*QP0S 

04370 

JP 

COS+61 

04371 

COM 

Q*31D*YM0RE 

04372 

ENT 

Q*30D 

04373 

STR 

Q*L<$+1) 

04374 

ENT 

B7*0 

04375 

ENT 

Q*W (COS+65) 

04376 

MUL 

A 

04377 

RSH 

AQ*270+B7 

O4400 

ADO 

A*0 

04401 

SEL 

CL*X77774 

04402 

ENT 

B7+A 

04403 

RSH 

AQ*1 

04404 

JP 

$+1407 

04405 

JP 

$  +  3 

04406 

CP 

Q*SK IP 

04407 

CP 

Q 

04410 

ENT 

A*W(C0S+74)*AP0S 

04411 

CP 

Q 

04412 

STR 

Q*W ( COS+74 ) 

04413 

MUL 

W(C0S+74) 

04414 

LSH 

AQ*1 

04415 

STR 

A*W (COS+75) 

04416 

ENT 

B7*3 

04417 

ENT 

Q*W(C0S+73) 

04420 

MUL 

W(C0S+75) 

04421 

ENT 

Q*A 

04422 

ADO 

Q*W(COS467407) 

04423 

BJP 

B7*S-3 

04424 

MUL 

W ( COS+74 ) 

04425 

LSH 

AQ*1 

04420 

EXIT 

04427 

COM 

Q*X77745*YM0RE 

04430 

JP 

COS+25 

04431 

CL 

A 

04432 

EXIT 

04433 

2427630155 

04434 

2000000000 

04435 

3110375522 

04436 

5325041750 

l 


06343 

61000 

00000 

06344 

12710 

06343 

06345 

16710 

06354 

06346 

12700 

00001 

06347 

16710 

06375 

06350 

60600 

06352 

06351 

15440 

00000 

06352 

60500 

06356 

06353 

11030 

06431 

06354 

61000 

00000 

06355 

16010 

06375 

06356 

15630 

06437 

06357 

15040 

00000 

06360 

70000 

00035 

06361 

06700 

00001 

06362 

61010 

06354 

06363 

06000 

00035 

06364 

27607 

00000 

06365 

61000 

06424 

06366 

04300 

00037 

06367 

10000 

00036 

06370 

14010 

06371 

06371 

12700 

00000 

06372 

10030 

06430 

06373 

22070 

00000 

06374 

03007 

00033 

06375 

20000 

00000 

06376 

52040 

77774 

06377 

12770 

00000 

06400 

03000 

00001 

06401 

61007 

06402 

06402 

61000 

06405 

06403 

14100 

00000 

06404 

14000 

00000 

06405 

11630 

06437 

06406 

14000 

00000 

06407 

14030 

06437 

06410 

22030 

06437 

06411 

07000 

00001 

06412 

15030 

06440 

06413 

12700 

00003 

06414 

10030 

06436 

06415 

22030 

06440 

06416 

10070 

00000 

06417 

26037 

06432 

06420 

72700 

06415 

06421 

22030 

06437 

06422 

07000 

00001 

06423 

61010 

06354 

06424 

04340 

77745 

06425 

61000 

06370 

06426 

11000 

00000 

06427 

61010 

06354 

06430 

24276 

30155 

06431 

20000 

00000 

06432 

31103 

75522 

06433 

53250 

41750 

c 


CD 

\J1 


04437 

0506321276 

04440 

7731554634  - 

04441 

0002366574 

04442 

0 

04443 

0 

04444  COSX 

EQUALS  COS 

04445  SINX 

EQUALS  SIN 

04446 

COMMENT 

04447 

COMMENT 

04450  SORT 

ENTRY 

04451 

CL 

Q 

04452 

RPT 

14D 

04453 

RSH 

AQ*2*AZER0 

04454 

RJP 

SOVERFLOW*ANOT 

04455 

LSH 

AQ*28D 

04456 

STR 

A*W(SQRT+34D>  *ANOT 

04457 

JP 

SQRT+29D 

04460 

RSH 

A*3 

04461 

COM 

A*W<SQRT+31D)*YmORE 

04462 

ADD 

A*W (SQRT+33D) *SKIP 

04463 

15140  00000 

04464 

ADD 

A*W (SQRT+34D) *SKIP 

04465 

ADD 

A*W ( SQRT+32D) *SKIP 

04466 

RSH 

A*1*SKIP 

04467 

ADD 

A*W ( SQRT+34D) 

04470 

STR 

A*W (SQRT+35D) 

04471 

ENT 

A*W ( SQRT+34D) 

04472 

RSH 

AQ*2 

04473 

DIV 

W<SQRT+350> 

04474 

ADD 

Q*W ( SQRT+35D) 

04475 

RSH 

Q*1 

04476 

STR 

Q*W(SQRT+35D) 

04477 

ENT 

A*W(SQRT+34D> 

04500 

RSH 

AQ*2 

04501 

DIV 

W(SQRT+35D) 

04502 

ENT 

Y+Q*W<SQRT+35D> 

04503 

RSH 

AQ*1+B7*QP0S 

04504 

add 

A*1 

04505 

NO-OP 

04506 

EXIT 

04507 

01000  ooooo 

04510 

04400  OOOOO 

04511 

16000  OOOOO 

04512 

0 

0 

04513 

0 

0 

04514 

COMMENT 

04515  ASIN 

ENTRY 

04516 

STR 

A*W(ASIN+27D>*AP0S 

04517 

CP 

A 

04520 

COM 

Q*57D*YM0RE 

04521 

ENT 

Q*57D 

04522 

ADD 

Q*2 

04523 

JP 

ASIN+22D*AZER0 

04524 

STR 

Q*L(ASlN+9D>»QP0S 

04525 

RJP 

SOVERFLOW 

04526 

RSH 

AQ*0*AN0T 

06434 

05063 

21276 

06435 

77315 

54634 

06436 

00023 

66574 

06437 

OOOOO 

OOOOO 

06440 

OOOOO 

OOOOO 

06441 

61000 

OOOOO 

06442 

10000 

OOOOO 

CLEAR  Q 

06443 

70000 

00016 

NORMALIZE 

06444 

03400 

00002 

SHIFT  UNTIL  A  0 

06445 

64500 

06257 

06446 

07000 

00034 

NORMALIZE  IN  A 

06447 

15530 

06503 

STORE  NORMALIZED  RADICAND 

06450 

61000 

06476 

RADICAND  0 

06451 

02000 

00003 

DIVIDE  BY  8  FOR  LINEAR 

APPROX 

06452 

04730 

06500 

SKIP  IF  RIT  24  0 

06453 

20130 

06502 

ADD  7/8 

06454 

15140 

OOOOO 

CP  r  A  f  SKIP 

06455 

20130 

06503 

ARG/6+7/8+ARG 

06456 

20130 

06501 

ADO  9/32 

06457 

02100 

00001 

DIVIDE  GY  2 

06460 

20030 

06503 

ARG/8+9/32+ARG 

06461 

15030 

06504 

LINEAR  APPROX  COMPLETE 

06462 

11030 

06503 

ENTER  RADICAND  (SCALED 

AT  28) 

06463 

03000 

00002 

SCALE  AT  26 

06464 

23030 

06504 

DIVIDE  (SCALED  AT  26) 

06465 

26030 

06504 

06466 

01000 

00001 

06467 

14030 

06504 

06470 

11030 

06503 

ENTER  RADICAND 

06471 

03000 

00002 

SCALE  2 ( ARG)  AT  26 

06472 

23030 

06504 

DIVIDE»RESULT  IN  Q 

06473 

30030 

06504 

2 (RESULT  TO  A 

06474 

03207 

00001 

06475 

20000 

OOOOl 

ROUND 

06476 

12000 

OOOOO 

06477 

61010 

06441 

06500 

01000 

OOOOO 

06501 

04400 

OOOOO 

9/32  AT  28 

06502 

16000 

OOOOO 

7/8  AT  28 

06503 

OOOOO 

OOOOO 

TEMPORARY 

06504 

OOOOO 

ooooo 

temporaryatan 

06505 

61000 

ooooo 

06506 

15630 

0654  0 

06507 

15040 

ooooo 

SET  ARGUMENT  POSITIVE 

06510 

04300 

00071 

06511 

10000 

00071 

06512 

26000 

00002 

06513 

60400 

06533 

06514 

14210 

06516 

06515 

65000 

06257 

06516 

03500 

OOOOO 

CHECK  FOR  ARGUMENT  GREATER  OR 

2 


00 

ON 


04527 

STR 

Q*W ( ASIN+26D) *QPOS 

04530 

RJP 

SOVERFLOW 

04531 

MUL 

(ASIN+2BD) 

04532 

RSH 

AQ+280 

04533 

SUB 

Q*0*QN0T 

04534 

JP 

$+16 

04535 

ENT 

Y-Q*W ( ASIN+26D ) 

04536 

RJP 

SORT 

04537 

NO-OP 

04540 

ENT 

Q*A 

04541 

ENT 

A*W ( ASIN+28D) 

04542 

RJP 

ATAN 

04543 

ENT 

Q*W ( ASIN+27D) ♦QPOS 

04544 

CP 

A 

04545 

NO-OP 

04546 

EXIT 

04547 

20000  00000 

04550 

0 

0 

04551 

0 

0 

04552 

ENT 

A*W ( ASIN+26D) 

04553 

JP 

$-13 

04554 

ASINX 

EQUALS  AS IN 

04555 

COMMENT 

04556 

COMMENT  RESULTANT  VALL 

04557 

COMMENT 

04560 

MKXO 

0 

0 

04561 

MKYO 

0 

0 

04562 

MKZO 

0 

0 

04563 

MKXS 

0 

0 

04564 

MKYS 

0 

0 

04565 

MKZS 

0 

0 

04566 

MKLHA 

0 

0 

04567 

MKLHADT 

0 

0 

04570 

MKRO 

0 

0 

04571 

mkdelay 

0 

0 

04572 

MKRODT 

0 

0 

04573 

MKFCL 

0 

0 

04574 

MKAPDT 

0 

0 

04575 

MKALFP 

0 

0 

04576 

MKDPOT 

0 

0 

04577 

MKDP 

0 

0 

04600 

MKDOPP 

0 

0 

04601 

04602 

04603 

04604 

04605 

04606 

04607 

04610 

04611 

04612 

04613 

04614 

04615 

04616 

04617 


MKRT 

MK1 

MK2 

MK3 

MK4 

MK5 

MK6 

MK7 

MK0 

MK9 

MK10 

MK11 


COMMENT 

COMMENT 

COMMENT 


CONSTANTS  AT  RUN  TIME 


« 


06517 

14230 

06541 

06520 

65000 

06257 

06521 

22030 

06541 

06522 

03000 

00034 

06523 

27500 

00000 

06524 

61000 

06542 

06525 

31030 

06537 

06526 

65000 

06441 

COMPUTE  SORT ( 1-ARG  SQUARED) 

06527 

12000 

00000 

06530 

10070 

00000 

ARCSINEX  ARCT AN ( X/SQRT ( 1-XSQ'  *A 
RE 

06531 

11030 

06541 

06532 

65000 

06154 

COMPUTE  ARCSINE  (-X) 

06533 

10230 

06540 

06534 

15040 

00000 

06535 

12000 

00000 

06536 

61010 

06505 

06537 

20000 

00000 

1  AT  28 

06540 

00000 

00000 

TEMPORARY 

06541 

00000 

00000 

TEMPORARY 

06542 

11030 

06537 

06543 

61000 

06530 

06544 

00000 

ooooo 

B28 

06545 

00000 

ooooo 

B28 

06546 

00000 

ooooo 

B28 

06547 

00000 

ooooo 

06550 

00000 

ooooo 

06551 

00000 

ooooo 

06552 

00000 

ooooo 

LHA-826 

06553 

ooooo 

ooooo 

D/DT (LHA ) -B37 

06554 

00000 

ooooo 

E.R.  AT  B23 

06555 

ooooo 

ooooo 

B27  SECONDS 

06556 

ooooo 

ooooo 

B27  NM/SEC 

06557 

ooooo 

ooooo 

CYC/SEC  B22 

06560 

ooooo 

ooooo 

D ( ALF- ) /OT-R AD/SEC-P37 

06561 

ooooo 

ooooo 

ALF-  B27  RAD 

06562 

ooooo 

ooooo 

D (DEC-) /DT  RAD/SEC  P37 

06563 

ooooo 

ooooo 

DEC-  RADIANS  B27 

06564 

ooooo 

ooooo 

DOPPLER  IN  CYCLES  AT  R12 

06565 

OOOOO 

ooooo 

R(0)/D<0)  (B28) 

06566 

OOOOO 

ooooo 

B2Q 

06567 

OOOOO 

ooooo 

B2fl 

06570 

OOOOO 

ooooo 

B28 

06571 

OOOOO 

ooooo 

RHO/D  SCALED  AT  033 

06572 

OOOOO 

ooooo 

06573 

ooooo 

ooooo 

06574 

ooooo 

ooooo 

RAD-B27 

06575 

ooooo 

ooooo 

B28 

06576 

ooooo 

ooooo 

B28 

06577 

ooooo 

ooooo 

B28 

06600 

ooooo 

ooooo 

B28 

U4620 

MM2 

0  0 

06601 

00000 

ooooo 

B28 

U4621 

MM3 

0  0 

06602 

ooooo 

ooooo 

B28 

04622 

MK14 

0  0 

06603 

00000 

ooooo 

B28 

04625 

MK15 

0  0 

06604 

OOOOO 

ooooo 

B28 

04624 

MK16 

0  0 

06605 

onooo 

ooooo 

B28 

0462b 

MM  7 

0  0 

06606 

ooooo 

ooooo 

B28 

04626 

MKlfl 

0  0 

06607 

ooooo 

ooooo 

B28 

04627 

MK19 

0  0 

06610 

ooooo 

ooooo 

04630 

MK20 

0  0 

06611 

ooooo 

ooooo 

04631 

COMMENT 

04632 

COMMENT 

04635 

COMMENT 

04634 

COMMENT  CONSTANTS  AT  ASSEMBLY  TIME 

04635 

COMMENT 

04636 

MKKK1 

0  0 

06612 

ooooo 

ooooo 

J4637 

MKRK2 

0  0 

06613 

ooooo 

ooooo 

04640 

MKRK3 

0  0 

06614 

ooooo 

ooooo 

04641 

MKQCCER 

0053445040 

06615 

00534 

45040 

.02127558629  1.0/C  IN  SEC/E.R* 

04642 

MKGNMPEk 

33420  64260 

06616 

33420 

64260 

N.M./E.R.  3.4416059224 (B27) 

04643 

MKQll 

2714121727 

06617 

27141 

21727 

11.595B25 

04644 

MKQR11 

0260501354 

06620 

02605 

01354 

.0862440707B29  1/11.595 

04645 

MKHLF 

20000  00000 

06621 

20000 

ooooo 

1/2  B29 

04646 

TENB25 

2400000000 

06622 

24000 

OOOOO 

10B25 

04647 

MKGRO 

3267301310 

06623 

32673 

01310 

3438.755435B17  GEOCEN  RADIUS  I 
N  N.M. 

04650 

mkqrho 

3774706124 

06624 

37747 

06124 

•99848B29  GEOCEN  RADIUS  IN  E.R 

04651 

MKuRHOX 

15534  37154 

06625 

15534 

37154 

EXTENSION  OF  ABOVE 

04652 

MKQWE 

23073  23776 

06626 

23073 

23776 

W(E)  B42 

04653 

MK0NE2Q 

2000000000 

06627 

20000 

OOOOO 

1.0328 

04654 

MKQALF 

0011205012 

06630 

00112 

05012 

• 00452139B29  ALPHA 

04655 

MKQERPNM 

23016  71142 

06631 

23016 

71142 

E.R. /N.M.  B37 

04656 

mkgfc 

2751405503 

06632 

27514 

05503 

48432. 352B13  7840  MHZ  IN  1/NM 

04657 

MKQBNM 

3524707461 

06633 

35247 

07461 

938.4449184B19  LUNAR  PADIUS  IN 
N.M. 

.2724876721629  LUNAR  RADIUS  IN 

04660 

MKQBER 

1056034021 

06634 

10560 

34021 

046ol 

MKQ90 

0550000000 

06635 

05500 

OOOOO 

E.R. 

90.0B20  90  DEGREES  AT  B20 

04662 

MKRADDEG 

0043575065 

06636 

00435 

75065 

.0174532925B29  DEG/RAP 

04663 

MKQ180 

1444176652 

06637 

14441 

76652 

3.141592654B26  PI 

04664 

MKGiRCNM 

00031  72222 

06640 

00031 

72222 

I/C  B37  SEC/N.M 

04665 

COMMENT 

04666 

COMMENT  COMMON  STORAGE  EQUIVALENTS 

04667 

COMMENT 

04670 

MKRADOT 

0 

06641 

OOOOO 

OOOOO 

RAD/SEC  AT  B42 

04671 

MKDECDOT 

0 

06642 

OOOOO 

OOOOO 

RAD/SEC  AT  B42 

04672 

MKRA 

0  0 

06643 

OOOOO 

OOOOO 

ALPHA  B26  RADIANS 

04673 

MKOEC 

0  0 

06644 

ooooo 

ooooo 

DEC  B26  RADIANS 

04674 

MKUO 

0 

06645 

OOOOO 

ooooo 

RADIUS  IN  E.R.  AT  B22 

04675 

MKD02 

0  0 

06646 

ooooo 

ooooo 

B22  P ( 0 ) **2 

j467b 

MK6E0LAT 

0  0 

06647 

ooooo 

ooooo 

GEOCENTRIC  LAT  OF  SITE  -  RADIA 
NS 

B28  SIN (DEC ) 

04677 

mksindec 

U  0 

06650 

ooooo 

ooooo 

04700 

MKCOSUEC 

0  0 

06651 

ooooo 

ooooo 

SIN ( DEC )  B28 

04701 

MKSINGLAT 

0  0 

06652 

ooooo 

ooooo 

SIN ( PHI ) B28 

U4702 

MKCOSGLAT 

0  0 

06653 

ooooo 

ooooo 

COS ( PHI )  B28 

04703 

MKbOOT 

0 

06654 

ooooo 

ooooo 

N.M. /SEC  AT  B29 

04704 

MKUDOTa 

0 

06655 

ooooo 

ooooo 

E.R. /SEC  AT  B40 

00 

Oo 


04705 

0470b 

04707 

U4710 

MKPOSSW 

COMMENT 
COMMENT 
COMMENT 
0  0 

04711 

MKOFFSW 

0 

0 

04712 

mkidelay 

0 

0 

04713 

MMAN6 

0 

0 

04714 

MKINUETA 

0 

0 

U471S 

MKlNLAMtiPA 

0 

0 

0471b 

04717 

04720 

04721 

MKBETA 

COMMENT 

comment 

COMMENT 
0  0 

04722 

MKLAM0DA 

0 

0 

04723 

MKSINb 

0 

0 

04724 

MKCOS0 

0 

0 

04725 

MKSINL 

0 

0 

04726 

mkcosl 

0 

0 

04727 

M*XS2 

0 

0 

04730 

MKYS2 

0 

0 

04731 

MKZS2 

0 

0 

04732 

MKX02 

0 

0 

04733 

MKY02 

0 

0 

04734 

MKZ02 

0 

0 

04735 

MKOANG 

0 

0 

04736 

MKSINDA 

0 

0 

04737 

MKCOSDA 

0 

0 

U4740 

MKZR02 

0 

0 

04741 

MKZRO 

0 

0 

04742 

04743 

04744 

MK0KK2 

COMMENT 
COMMENT 
0  0 

04745 

MKSINLHA 

0 

0 

04746 

MKCOSLHA 

0 

0 

04747 

MKSINPHIU 

0 

0 

04750 

MKCOSPHIO 

0 

0 

04751 

MKCOSZO 

0 

0 

04752 

MKkHOUCOS 

0 

0 

04753 

MKRT2 

0 

0 

04754 

mksinophi 

0 

0 

04755 

MKCOSPPHI 

0 

0 

04756 

MKDDTCOSZ 

0 

0 

04757 

MKCA 

0 

0 

04760 

MKCADT 

0 

0 

04761 

MKCB 

0 

0 

04762 

MKCBDT 

0 

0 

04763 

MKCC 

0 

0 

04764 

MKCCDT 

0 

0 

04765 

MKSINDP 

0 

0 

04766 

MKCOSUP 

0 

0 

04767 

MKSINLHAP 

0 

0 

04770 

MKLHAP 

0 

0 

04771 

MKAB 

0 

0 

04772 

MXAB2 

0 

0 

04773 

mkabdt 

0 

0 

04774 

MKCA1DT 

0 

0 

04775 

MKCB1 

0 

0 

INPUT  PARAMETERS 


CONSTANTS  FROM  ROUTINES  2 


06656 

00000 

ooooo 

06657 

00000 

ooooo 

0=  NO  OFFSET  *L  =  OFFSET 

06660 

ooooo 

ooooo 

B25 

06661 

00000 

ooooo 

06662 

ooooo 

ooooo 

B20 

G6663 

5 

ooooo 

ooooo 

B20 

06664 

OOOOO 

ooooo 

B27 

06665 

OOOOO 

ooooo 

B27 

06666 

OOOOO 

ooooo 

B28 

06667 

OOOOO 

ooooo 

B20 

06670 

OOOOO 

ooooo 

B28 

06671 

OOOOO 

ooooo 

B20 

06672 

ooooo 

ooooo 

B28 

06673 

ooooo 

ooooo 

B20 

06674 

ooooo 

ooooo 

B20 

06675 

ooooo 

ooooo 

B20 

06676 

ooooo 

ooooo 

B20 

06677 

ooooo 

ooooo 

B20 

06700 

ooooo 

ooooo 

90  -  INPUT  IN  RADIAN  B27 

06701 

ooooo 

ooooo 

B20 

06702 

ooooo 

ooooo 

B20 

06703 

ooooo 

ooooo 

B20  1-Z(0)**2=R(0>**2 

06704 

ooooo 

ooooo 

B28 

06705 

ooooo 

ooooo 

06706 

ooooo 

ooooo 

06707 

ooooo 

ooooo 

COS(LHA) 

06710 

ooooo 

ooooo 

SIN ( PHI ) X  SIN (DEC ) 

06711 

ooooo 

ooooo 

COS(PHI)X  COS(DEC) X  COS(LHA) 

06712 

ooooo 

ooooo 

COS  ZO  PG*  3  B20 

06713 

ooooo 

ooooo 

COSZ ( RHO/D)  B29 

06714 

ooooo 

ooooo 

B28 

06715 

ooooo 

ooooo 

B28 

06716 

ooooo 

ooooo 

B20 

06717 

ooooo 

ooooo 

B37 

06720 

ooooo 

ooooo 

A-  B20 

06721 

ooooo 

ooooo 

DA/DT  B37 

06722 

ooooo 

ooooo 

B20-B 

06723 

ooooo 

ooooo 

D(B) /DT-B37 

06724 

0.0000 

ooooo 

C-B28 

06725 

ooooo 

ooooo 

DC/DT-B37 

06726 

ooooo 

ooooo 

SIN(DP)  B28 

06727 

ooooo 

ooooo 

COS(DP)  B28 

06730 

ooooo 

ooooo 

SIN(LH*-)  B28 

06731 

ooooo 

ooooo 

LHA-  B27  RAD 

06732 

ooooo 

ooooo 

B28~AB= (RT)COS  DP 

06733 

ooooo 

ooooo 

(AB) (AB)-B28 

06734 

ooooo 

ooooo 

D(AB)/DT  B37 

06735 

ooooo 

ooooo 

B37 

06736 

ooooo 

ooooo 

B20 

04776 

MKCB1DT 

04777 

MKCC1 

05000 

MKCC1DT 

05001 

MKBP 

05002 

MKSINBP 

05003 

MKCOSBP 

05004 

MKLP 

05005 

MKSINLP 

05006 

MKCOSLP 

05007 

MKCP 

05010 

MKSINCP 

05011 

MKCOSCP 

05012 

MKBPDT 

05013 

MKLPDT 

05014 

MKWX 

05015 

MKWY 

05016 

MKWA 

05017 

MKCA1 

U5020 

MKCOSDDA 

05021 

MKSINDDA 

05022 

MKDELDEL 

05023 

MKDELALF 

05024 

MKS 

05025 

MKOOP1 

05026 

MKD0P2 

05027 

MKOOPPLER 

05030 

MKRTX2 

05031 

MKRTX 

05032 

MKDPX 

05033 

MKDDTR 

05034 

MKS2 

05035 

MKXD 

05036 

05037 

05040 

MK42 

05041 

MKTl 

05042 

MKT2 

05043 

MKT3 

05044 

MKT4 

05045 

MKT7 

05046 

MKT8 

05047 

MKT9 

05050 

MKT10 

05051 

MKTU 

05052 

MKT12 

05053 

MKT5 

05054 

MKT6 

05055 

MKT13 

05056 

MKT14 

05057 

MKT15 

05060 

MKT16 

05061 

MKT17 

05062 

MKT18 

05063 

mkdelaycnt 

05064 

05065 

05066 

05067 

INPUT 


0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

comment 

COMMENT 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0 

COMMENT 

COMMENT 

COMMENT 

COMMENT 


06737 

00000 

ooooo 

06740 

00000 

ooooo 

B28 

06741 

00000 

ooooo 

B37 

06742 

00000 

ooooo 

B27 

06743 

00000 

ooooo 

B28 

06744 

00000 

ooooo 

B28 

06745 

00000 

ooooo 

B27 

06746 

00000 

ooooo 

B28 

06747 

00000 

ooooo 

B2fl 

06750 

00000 

ooooo 

B27  RAD 

06751 

00000 

ooooo 

B28 

06752 

00000 

ooooo 

B28 

06753 

00000 

ooooo 

RAD/SEC  B37 

06754 

00000 

ooooo 

ROD/SEC  B37 

06755 

00000 

ooooo 

B37  RAD/SEC 

06756 

00000 

ooooo 

B37 

06757 

00000 

ooooo 

837 

06760 

00000 

ooooo 

B27 

06761 

ooooo 

ooooo 

06762 

00000 

ooooo 

06763 

ooooo 

ooooo 

B28 

06764 

ooooo 

ooooo 

DELALF-B28 

06765 

ooooo 

ooooo 

S=B/RO  (B28) 

06766 

ooooo 

ooooo 

D0P1-B14 

06767 

ooooo 

ooooo 

D0P2-B14 

06770 

ooooo 

ooooo 

D0PPLER-B14 

06771 

ooooo 

ooooo 

B27 

06772 

ooooo 

ooooo 

B27 

U6773 

OOOOO 

ooooo 

B24 

06774 

ooooo 

ooooo 

B28 

06775 

ooooo 

ooooo 

(S>(S>  828 

06776 

ooooo 

ooooo 

06777 

ooooo 

ooooo 

07000 

ooooo 

ooooo 

B28 

07001 

ooooo 

ooooo 

B28 

07002 

ooooo 

ooooo 

TEMP 

07003 

ooooo 

ooooo 

07004 

ooooo 

ooooo 

07005 

ooooo 

ooooo 

07006 

ooooo 

ooooo 

07007 

ooooo 

ooooo 

07010 

ooooo 

ooooo 

07011 

ooooo 

ooooo 

07012 

ooooo 

ooooo 

07013 

ooooo 

ooooo 

07014 

OOOOO 

ooooo 

07015 

ooooo 

ooooo 

07016 

ooooo 

ooooo 

07017 

ooooo 

ooooo 

07020 

ooooo 

ooooo 

07021 

ooooo 

ooooo 

07022 

ooooo 

ooooo 

FOR  INTERCOM 


05070 

MKMES02 

F  0  0*A 

07023 

06000 

00000 

05071 

-0  $  +  1 

07024 

77777 

07025 

05072 

FO  0*LAT= 

07025 

21063 

14400 

05075 

77777  77777 

07026 

77777 

77777 

05074 

MKMESI2 

FD  0*X20 

07027 

35622 

40000 

05075 

10  MKINBETA 

07030 

00010 

06662 

05076 

7227777777 

07031 

72277 

77777 

-90.0B20  LIMITS  OF  BETA(DFG) 

05077 

0550000000 

07032 

05500 

00000 

90.0R20 

05100 

MKMES03 

FD  0*A 

07033 

06000 

00000 

05101 

-0  $+1 

07034 

77777 

07035 

05102 

FD  0*L0NG= 

07035 

21242 

31444 

05103 

77777  77777 

07036 

77777 

77777 

05104 

MKMESI3 

FD  0*X20 

07037 

35622 

40000 

05105 

10  MKINLAMBDA 

07040 

00010 

06663 

05106 

6457777777 

07041 

64577 

77777 

-180.0820  LIMITS 
) 

180.0B20 

OF  LAMULA(OEG 

05107 

1320000000 

07042 

13200 

00000 

05110 

MKMES04 

FD  0*A 

07043 

06000 

00000 

05111 

-0  S+l 

07044 

77777 

07045 

05112 

FD  0*X<S>= 

07045 

35513 

04044 

05113 

77777  77777 

07046 

77777 

77777 

05114 

MKMESI4 

FD  0*X28 

07047 

35627 

00000 

05115 

10  MKXS 

07050 

00010 

06547 

05116 

5777777777 

07051 

57777 

77777 

-1.0B28  LIMITS  OF 

X(S) 

05117 

2000000000 

07052 

20000 

00000 

1 • 0828 

05120 

MKMES05 

FD  0*A 

07053 

06000 

00000 

05121 

-0  S+l 

07054 

77777 

07055 

05122 

FD  0*Y<S>= 

07055 

36513 

04044 

05123 

77777  77777 

07056 

77777 

77777 

05124 

MKMESI5 

FD  0*X28 

07057 

35627 

00000 

05125 

10  MKYS 

07060 

00010 

06550 

05126 

YSLIMIT 

5777777777 

07061 

57777 

77777 

-1.0B28  LIMITS  OF 

Y  ( S ) 

05127 

2000000000 

07062 

20000 

oooon 

1 • 0028 

05130 

MKMES00 

FD  0*A 

07063 

06000 

00000 

05131 

-0  $  +  1 

07064 

77777 

07065 

05132 

FD  0*0FFSET  (Y/N) 

07065 

24131 

33012 

07066 

31055 

13674 

07067 

23400 

00000 

05133 

77777  77777 

07070 

77777 

77777 

05134 

MKMESIO 

FD  0*Y 

07071 

36000 

00000 

05135 

0  MOONSWS 

07072 

00000 

63343 

05136 

MKMES01 

FD  0*A 

07073 

06000 

00000 

05137 

-0  SU 

07074 

77777 

07075 

05140 

FD  0*LAT ♦LONG ( 1 )  DIR.  C0S<2) 

CO 

OBSERVER  07075 

21063 

14221 

07076 

24231 

45161 

07077 

40051 

11627 

07100 

75051 
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COMMENT  EPHCNT  =  NO. 

OF  VALUES  IN  EACH 

OF  THE  4  TABLES 
COMMENT  EPHDAY  =  DAY 

OF  VALIDITY  OF  FI 

RST  ENTRY  IN  EACH  OF  4 

TBLS 

EPHDAY 

-1 

07170 

77777 

77776 

COMMENT 

COMMENT  EPHEMERIS  INPJT 

COMMENT  THE  STORAGE  AND  TABLES  MUST  BE 

IN  THE  ORDER  RST  t RSTDT » I  rSP 
COMMENT 

COMMENT  FOLLOWING  VALUES  FOR  YEAR  1969 


U5231  EPHCNT 
05232 

EQUALS  380 

COMMENT  FOLLOWING  VALUES 

05233  EPHRST 

U5234 

05235 

05236 

05237 

05240 

05241 

U524<£ 

05243 

05244 

05245 

05246 

05247 

05250 

05251 

05252 

05253 

05254 

05255 

05256 

05257 

05260 

05261 

05262 

05263 

05264 

05265 

05266 

05267 

05270 

05271 

05272 

05273 

05274 

05275 

05276 

05277 

05300 

05301  EPHRSTOT 
05302 

05303 

05304 
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0  5306 
u5307 

05310 

05311 

05312 

05313 

05314 

05315 

05316 

05317 

05320 

05321 

05322 

1742203655 

3056646750 

1062716356 

2177364062 

0203431432 

1320076564 

2434542044 

0440607227 

1555254733 

2671720026 

0675765211 

2012432715 

0016500265 

1133143360 

2247610677 

0253656247 

1370323566 

2504771104 

0511036454 

1625503773 

2742151312 

0746221272 

2062664201 

0066733773 

1203401477 

2320046631 

0324114366 

1440561520 

2555227036 

0561277017 

1675744150 

3012413713 

1016463673 

2133133250 

0137203230 

1253652772 

2370322347 

0374374552 

0054511643 

0054511643 

0054511746 

0054511643 

0054511653 

0054511663 

0054511560 

0054511663 

0054511663 

0054511560 

0054511663 

0054511663 

0054511560 

0054511663 

0054511653 

0054511643 

0054511746 

0054511643 

1969 


07171  17422  03655 
07172  30566  46750 
07173  10627  16356 
07174  21773  64062 
07175  02034  31432 
07176  13200  76564 
07177  24345  42044 
07200  04406  07227 
07201  15552  54733 
07202  26717  20026 
07203  06757  65211 
07204  20124  32715 
07205  00165  00265 
07206  11331  43360 
07207  22476  10677 
07210  02536  56247 
07211  13703  23566 
07212  25047  71104 
07213  05110  36454 
07214  16255  03773 
07215  27421  51312 
07216  07462  21272 
07217  20626  64201 
07220  00667  33773 
07221  12034  01477 
07222  23200  46631 
07223  03241  14366 
07224  14405  61520 
07225  25552  27036 
07226  05612  77017 
07227  16757  44150 
07230  30124  13713 
07231  10164  63673 
07232  21331  33250 
07233  01372  03230 
07234  12536  52772 
07235  23703  22347 
07236  03743  74552 
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07240  00545  11643 
07241  00545  11746 
07242  00545  11643 
07243  00545  11653 
07244  00545  11663 
07245  00545  11560 
07246  00545  11663 
07247  00545  11663 
07250  00545  11560 
07251  00545  11663 
07252  00545  11663 
07253  00545  11560 
07254  00545  11663 
07255  00545  11653 
07256  00545  11643 
07257  00545  11746 
07260  00545  11643 
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ACQELEV 

63075 

ACQUI 

63427 

ACTUALTIME 
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ADSCN 

63416 

AEBUXLINES 

63b07 

AEPHEM 

01453 

AESCN 

63417 

AIRPORT 

00237 

alngofkset 

63517 

ALNGARCSCN 

63506 

ARC0FA2IM 

63524 

arcofdec 

63526 

ARCOFELEV 

63522 

ARCOFKA 

63530 

areacnt 

02215 

ASIN 

06505 

ASINX 

06505 

ASTRODEC 

63106 

ASTRORA 

63105 

ATAN 

06154 
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63341 

AUTOSWITCH 

63025 

AUTOT 

63437 

AZDIFS 
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AZELOTIME 

63532 
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63500 

AZELIND* 
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64000 
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63325 
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63442 
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63027 
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63501 
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63022 
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63462 
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B0THNEG2 
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01416 
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BUST 
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63414 
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63420 
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63065 

COSAZlL 
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CELBODY 

63113 
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63424 
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CERO 
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63422 
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63431 
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01233 
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63057 
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63516 

DOPFACTOR* 
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JOPFREQS 

63166 

DOPPOUT 
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63444 
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DOPPLER* 
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63425 
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63150 
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00503 
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63172 
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63515 

OECAD 

01445 
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01446 
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63316 
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ELEvOUT 

65000 
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EPHEMF 

03660 
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01130 
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01102 
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63104 

firsthru 

63153 

FIX1 

01272 

F 1X2 

01300 

FIX3 

01306 

FL0TEST1 

01340 

FL0TEST2 

01362 

FL0TEST3 

01404 

flatneg 

00442 

FLATPOS 

00456 

FLATTENING 

63337 

framesize 

63101 

FREQUENCY 

63317 

FUNCTION 

01107 

GAMBIA 

01104 

GEOCENLAT 

63322 

GEODETLAT 

63321 

GMT 

GMT2 

00776 

GMT3 

GMT5 

01002 

GMT6 

GMTMODU24 

63145 

GMTSHIFTED 

HOUR 

01054 

HOURVIbUTE 

HALF 

01111 

HALFDAY 

HUAY 

01060 

HEIGHT 

HRAU 

C1056 

ID10RADI 0 

I012RADIO 

67777 

ID13RACI0 

IUlbRAOIO 

71776 

ID16RADI 0 

ID18RADI0 

72777 

ID19RADI 0 

idientpnt 

63410 

ID1RADC0R 

ID1RECRJ 

63210 

ioisysent 

IOISYSPAR 

63310 

ID1TIME 

ID21RAUI0 

74776 

ID22RADI0 

ID24RAOIO 

75777 

ID25RADI0 

IU2CELC0R 

63001 

ID2ENPNT 

ID2RADI0 

63441 

ID2RECRD 

ID2SYSNAM 

77677 

ID2SYSFAR 

ID3RADIO 

63776 

ID4RADI0 

I06RADI 0 

64777 

ID7RADI0 

I09RADIO 

66776 

IGNORE 

INAZIMAUD 

63446 

inelevadd 

INITIAL12 

00665 

INITIAL17 

INITIAL2 

00652 

INITIAL20 

INITI ALBOD 

01020 

INITIALDAT 

INIT1ALJD 

00644 

INTER 

INTERCOM 

63426 

INTERDOPP 

INTERPOL 

01136 

INTERRANGE 

INTRELCKSW 

63460 

JULIANDAY 

KEY 

01101 

kmpernm 

KYBRDSPEC1 

63344 

KYBRDSPEC2 

KYBRDSPEC4 

63347 

LONGITUDE 

lessone 

00460 

LINCOLN 

LSPLRAU 

63336 

LUNAR 

MOONINIT 

00005 

MOONSwS 

MOONUTAG 

00000 

MOONWORK 

MODES* ITCH 

63024 

MONITAPE 

MOREONE 

00462 

MAINSWITCH 

MCPGM 

63412 

MDAY 

M INKEG 

63152 

MINSRAD 

MKOFFSW 

06657 

MK0NE26 

MKIO 

06577 

MK1 1 

MK13 

06602 

MK14 

MK16 

06605 

MK17 

MK19 

06610 

MK2 

MK3 

06570 

MK4 

MK5 

06572 

MK6 

MKB 

06575 

MK9 

MKAB2 

06733 

MKABDT 

MKAPDT 

06560 

MKB1ST0R 

MKBP 

06742 

mkbpdt 

MKCOSBP 

06744 

MKCOSCP 

MKCUSDDA 

06761 

MKCOSDEC 

MKCOSDPHI 

06716 

MKCOSGLAT 

MKCOSLMA 

06707 

MKCOSLP 

MKCOSZO 

06712 

MKCA 

MKCA1DT 

06735 

MKCADT 

MKCBl 

06736 

MKCB1DT 

00754 

gmti 

00772 

00777 

GMT4 

01001 

01004 

GMT7 

01005 

63144 

HOLDNOHOLD 

63511 

63137 

hourreg 

63151 

01046 

HARVARD 

00246 

63326 

HIRESDOPS 

63171 

66777 

ID11PADI0 

67776 

70775 

ID14RADI0 

70776 

71777 

ID17RADI0 

72776 

73776 

ID1CELC0R 

63000 

63050 

ID1RADI0 

63440 

77576 

ID1SYSNAM 

77676 

63130 

ID20RADI 0 

73777 

74777 

ID23RADI 0 

75776 

76775 

ID26RADI0 

76776 

63411 

ID2RADC0R 

63051 

63211 

ID2SYSENT 

77577 

63311 

ID2TIME 

63131 

63777 

ID5RADI 0 

64776 

65776 

ID8RADI0 

65777 

01051 

IMPEPIAL 

01441 

63447 

INITI ALII 

00663 

01015 

INITIAL1Q 

01017 

01026 

IMITIAL3 

00654 

00655 

INITIALDIS 

01007 

63413 

INTERAZIM 

72000 

74000 

INTERELEV 

73000 

76777 

INTEPUPT 

01052 

01440 

KENNEDY 

01126 

63342 

KYBRDLEVEL 

63110 

63345 

KYBRDSPEC3 

63346 

63320 

LASTEPHEM 

03652 

01235 

LINECOUNTS 

63127 

00100 

M00ND0P2S 

63170 

63343 

MOONTIME 

00504 

00243 

M0D2PI 

07161 

00055 

MONTHPRINT 

01032 

63334 

MCPFILLER 

71000 

01061 

MILLSTNADO 

63451 

01057 

MINUS 

01327 

06627 

MK1 

06566 

06600 

MK 12 

06601 

06603 

MK15 

06604 

06606 

MK18 

06607 

06567 

MK20 

06611 

06571 

MK42 

06777 

06573 

MK7 

06574 

06576 

MKAB 

06732 

06734 

MKALFP 

06561 

00435 

MKBETA 

06664 

06753 

MKCOSB 

06667 

06752 

MKCOSDA 

06702 

06651 

MKCOSDP 

06727 

06653 

MKCOSL 

06671 

06747 

MKCOSPHID 

06711 

06720 

MKCA1 

06760 

06721 

MKCB 

06722 

06737 

MKCBDT 

06723 

MKCC 

06724 

MKCC1 

06740 

MKCC1DT 

06741 

MKCCOT 

06725 

MKCP 

06750 

MKDO 

06645 

MKD02 

06646 

MKD0P1 

06766 

MKD0P2 

06767 

MKDOPP 

06564 

mkdoppler 

06770 

MKDANG 

06700 

MKODOT 

06654 

MKOOOTX 

06655 

MKODTCOSZ 

06717 

MKDDTR 

06774 

MKOEC 

06644 

MKDECDOT 

06642 

mkdelalf 

06764 

MKDELAY 

06555 

mkdelaycnt 

07022 

MKDELDEL 

06763 

MKDKK2 

06705 

MKDP 

06563 

MKDPDT 

06562 

MKOPX 

06773 

MKFCL 

06557 

MKGEOLAT 

06647 

mkhlf 

06621 

MKIANG 

06661 

MKIDELAY 

06660 

MK INBET  A 

06662 

MKINLAMQDA 

06663 

MKLOK 

05357 

MKLAG 

05356 

MKLAMBDA 

06665 

MKLCON 

05350 

MKLHA 

06552 

MKLHADT 

06553 

mklhap 

06731 

MKLP 

06745 

MKLPDT 

06754 

MKMESOO 

07063 

MKMES01 

07073 

MKMES02 

07023 

MKMES03 

07033 

MKMES04 

07043 

MKMES05 

07053 

MKMESOb 

07116 

MKMES07 

07126 

MKMESOB 

07136 

MKMES09 

07147 

MKMESIO 

07071 

MKMESI1 

07111 

MKMESI2 

07027 

MKMESI3 

07037 

MKMESI4 

07047 

MKMtSIb 

07057 

MKMESI6 

07122 

MKMESI7 

07132 

MKMESI8 

07143 

MKMES19 

07154 

MKPOSSW 

06656 

MKQll 

06617 

MKQlflO 

06637 

MKQ90 

06635 

MKQALF 

06630 

mkqber 

06634 

MKQBNM 

06633 

MKQCCER 

06615 

mkgerpnm 

06631 

MKQFC 

06632 

MKQI 

07164 

MKQICOS 

07167 

MKQISIN 

07166 

MKQKl 

07162 

MKQNMPER 

06616 

MKQRO 

06623 

MKQRll 

06620 

mkqrcnm 

06640 

MKQRHO 

06624 

MKQRHOX 

06625 

MKQRSDT 

07163 

MKQSP 

07165 

MKQWE 

06626 

MKRQ 

06554 

MKRODT 

06556 

MKRA 

06643 

MKRADOT 

06641 

mkraddeg 

06636 

MKRHODCOS 

06713 

MKRKl 

06612 

MKRK2 

06613 

MKRK3 

06614 

MKrtT 

06565 

MKRT2 

06714 

MKRTX 

06772 

MKRTX2 

06771 

MKS 

06765 

MKS2 

06775 

mksinb 

06666 

MKSINRP 

06743 

MKS1NCP 

06751 

mksinda 

06701 

MKSINODA 

06762 

MKSINDEC 

06650 

MKSINDP 

06726 

MKSINDPHI 

06715 

MK5INGLAT 

06652 

mksinl 

06670 

MKSINLHA 

06706 

MKSINLHAP 

06730 

MKSINLP 

06746 

MKSINPHID 

06710 

MK5WITCH 

07115 

MKT  1 

07000 

MKT10 

07007 

MKT11 

07010 

MKT12 

07011 

MKT13 

07014 

MKT14 

07015 

MKT15 

07016 

MKT16 

07017 

MKT  17 

07020 

MKT18 

07021 

MKT2 

07001 

MKT3 

07002 

MKT4 

07003 

MKT5 

07012 

MKT6 

07013 

MKT7 

07004 

MKT  8 

07005 

MKT9 

07006 

MKtfA 

06757 

MKWX 

06755 

MKtfY 

06756 

MKXO 

06544 

MKX02 

06675 

MKXj 

06776 

MKXS 

06547 

MKXS2 

06672 

MKYO 

06545 

MKY02 

06676 

MKYS 

06550 

MKYS2 

06673 

MKZO 

06546 

MKZ02 

06677 

MK2R0 

06704 

MKZR02 

06703 

MKZS 

06551 

MKZS2 

06674 

MSFREU 

63332 

MXA 

04517 

MXA1 

05055 

mxalf 

04677 

MXAPDT 

05017 

MXQ 

04553 

MXB1 

05146 

MXBPDT 

05413 

MXC 

04625 

MXC1 

05230 

MXDOP 

04472 

MXDA 

05543 

MXDECPOT 

04740 

MXDELTLF 

05674 

MXDELP 

04661 

MXDPDOP 

05761 

MXFCL 

05466 

MXINIT 

03662 

MXINPOSA 

03705 

MXINPOSB 

03761 

MXINPOSC 

04026 

MXINPOSO 

04073 

MXINTAB 

03701 

MXLHA 

04202 

MXLPOT 

05424 

MXRO 

04220 

MXROBACK 

04342 

MXRODT 

04351 

MXRODTBACK 

04470 

MXSINBP 

05312 

MXSINCP 

05375 

mxsinlp 

05327 

Mxxrz 

05563 

NODATA 

00627 

NOOATA2 

00635 

NOFLOl 

01271 

M0FL02 

01277 

N0FL03 

01305 

NORMAL 

00112 

nmperau 

63340 

NUMDFPIV 

01127 

NUMFILES 

00014 

P 

OHIO 

POLE 

63324 

PLRIOUAZIM 

63523 

PERIODDEC 

63525 

PERIODELEV 

63521 

PERIODRA 

63527 

PLOTAZIMHJ 

63020 

PLOTELEV** 

63021 

PLOTP 

63436 

PLANP 

63434 

PLUS 

01333 

PREVIOUSTM 

63461 

PRINRECSW 

63160 

PRINT 

00221 

PRLOG 

63423 

PSQMP 

01122 

PSQMP6 

01123 

ROUND 

01426 

RA 

63002 

raoffset 

63514 

RA1 

00704 

RA2 

00710 

RA3 

00711 

RA4 

00713 

RA5 

00714 

RA6 

00716 

RA7 

00717 

RAAD 

01443 

RADOT 

63007 

RADARMODE 

63312 

RADCBXSCAN 

63503 

RADECOTIME 

63531 

RADIODEC 

63541 

RADIOMETER 

63102 

RADIOPA 

63540 

RADIFAD 

01444 

RADINDIC 

63157 

RADIUS 

63006 

RADIUSDOT 

63011 

range 

63052 

RANGEOUT 

70777 

RANGEADD 

63445 

rangelot 

63062 

RASCTNSCAN 

63504 

RDOTDIFS 

63123 

RD80XLINES 

63510 

RDIFS 

63122 

RDMTR 

63430 

RDXXX 

63433 

RECORDSIZE 

63112 

RECAZIM 

67000 

RECELEV 

70000 

RECFILE 

63212 

RECRD 

63415 

RECRDSWTCH 

63155 

RECSIZE 

00010 

REFRACCOR* 

63031 

REFRACINDS 

63161 

RELEASESW 

63156 

REMAINDER 

01227 

REVSRADIAN 

01047 

REWINDNO 

01053 

rghtasc 

00666 

RHRSEC 

01066 

SOVERFLOW 

06257 

SOVMSG 

06277 

SOVSTR 

06304 

SADD 

06305 

SADU1 

06314 

SADD2 

06320 

SADXT 

06321 

SAFE 

01452 

sarad 

01064 

SAZIM 

63055 

SCELTIME 

63134 

SDAY 

01062 

SDEC 

63005 

SECONDS 

63140 

SECSRAD 

01063 

SELEV 

63056 

SETINTAD 

01135 

SIDERTIME 

63012 

SIN 

06354 

SINORIENT 

63064 

SINAZEL 

63066 

SINX 

06354 

SIXTH 

01125 

SKIP 

63331 

SLAVE 

63126 

SLAVEOPTS 

63124 

SLAVEMODES 

63125 

SORT 

06441 

SRA 

63004 

SRAD 

01055 

SRAOTIME 

63136 

SRHI8IN 

01050 

SSBXT 

06337 

SSIR 

06324 

SSUB1 

06332 

SSUB2 

06336 

ST0R1 

01205 

ST0R2 

01223 

ST0R3 

01251 

ST0R4 

01265 

STORE 

00472 

STATUSCK 

00533 

SUM 

01336 

syncainbcw 

63643 

syncazbcw* 

63545 

synceinbcw 

63544 

SYNCELBCWS 

63546 

synctiming 

63542 

SYSC0MREG1 

63452 

SYSC0MREG2 

63453 

SYSC0MREG3 

63454 

SYSC0MREG4 

63455 

SYSCOMREG5 

63456 

SYSC0MREG6 

63457 

SYSENTRIES 

77600 

SYSNAMES 

77700 

SYSTAT1 

63313 

SYSTAT2 

63314 

SYSTATD 

63315 

tapeblock 

01442 

TAPERUST 

00615 

TAPEBUST1 

00617 

TAPEINPUT 

00035 

tapesearch 

03661 

TAPSTAT 

00624 

TEMP 

06342 

TENBP5 

06622 

THIRD 

01124 

TIME2 

01451 

TIMECORR 

63107 

TIMEMODE 

£3103 

TIMEP 

63435 

TIMETOHOLD 

63520 

trackindic 

63026 

TRUERANGE 

63063 

TRUETIME 

63132 

TRYAGAIN 

00044 

TTYSTATUS 

63111 

TWOLESS 

00454 

TWOPIE 

01067 

TWOSECDOP 

63017 

VELOFLIGHT 

63335 

VIZDEC1 

63014 

VIZDEC2 

63016 

VIZRA1 

63013 

VIZRA2 

63015 

WFORD 

63432 

WFADP 

63450 

WFFREQ 

63333 

wholeyear 

01437 

YOLIMIT 

07134 

YEARMONTH 

63147 

YEARPRINT 

01070 

yrremain 

01436 

YRTRAN 

63327 

YSLIMIT 

07061 

ZRTRAN 

63330 

tnntun  ntn  un  ni  n  t  spurt  output  no.  112  n  n  1 ;  n  n  n  n  n  n  n  n  t  n 


MOONTRACK  P.CR0WTHER*20FEB69 


LABEL 

LOC 

LA3EL 

LOC 

LABEL 

LOC 

MOOHUTAG 

00000 

EPHEHTAPE 

00002 

CELMOON 

00002 

MOOnINIT 

00005 

RECSIZE 

00010 

NUMFILES 

00014 

TAPLINPUT 

00035 

TRYAGAIN 

00044 

EPHCNT 

00046 

MONITAPE 

00055 

LUNAR 

00100 

NORMAL 

00112 

PRINT 

00221 

AIRPORT 

00237 

MOONWORK 

00243 

harvarq 

00246 

DECLINRAD 

00272 

EPHINTERP 

00367 

MKdlST  OR 

00435 

DAYFIND 

00437 

FLATNEG 

00442 

TWOLESS 

00454 

FLATPOS 

00456 

LESSONE 

00460 

MOREONE 

00462 

CERO 

00471 

STORE 

00472 

DAYINCRMNT 

00503 

MOONTIME 

00504 

STATUSCK 

00533 

3UST 

00602 

tapebust 

00615 

TAPEBUST 1 

00617 

TAPSTAT 

00624 

NODATA 

00627 

NOOATA2 

00635 

INITIALJD 

00644 

INITIAL2 

00652 

INITIALS 

00654 

INITI ALDAT 

00655 

INITI ALII 

00663 

INITIAL12 

00665 

RGHTASC 

00666 

RA1 

00704 

RA2 

00710 

R  A3 

00711 

RA4 

00713 

RA5 

00714 

RA6 

00716 

RA7 

00717 

DLN 

00721 

OLN1 

00737 

DLN2 

00743 

DLN3 

00744 

DLNH 

00746 

DLN5 

00747 

DLN6 

00751 

L)LN7 

00752 

GMT 

00754 

GMT1 

00772 

GMT2 

00776 

GMT3 

00777 

GMT4 

01001 

GMTb 

01002 

GMT6 

01004 

GMT7 

01005 

INI T I ALOIS 

01007 

INITI AL17 

01015 

INITIAL18 

01017 

INITIALBOO 

01020 

INITIAL20 

01026 

MONTHPRINT 

01032 

HALFDA  i 

01046 

revsradian 

01047 

SRHIBIN 

01050 

IGNORE 

01051 

INTERUPT 

01052 

REWINDNO 

01053 

HOUR 

01054 

SRAD 

01055 

HRAD 

01056 

MlNSRAD 

01057 

HDAY 

01060 

MDAY 

01061 

SDAY 

01062 

secsrad 

01063 

SARAD 

01064 

EUN MSEC 

01065 

RHRSEC 

01066 

TWOPIE 

01067 

YEARPRINT 

01070 

KEY 

01101 

FIRSTDIFF 

01102 

BETA 

01103 

GAMMA 

01104 

DELTA 

01105 

epsilon 

01106 

FUNCTION 

01107 

P 

OHIO 

HALF 

01111 

DMINB 

01112 

DMIN2CPLB 

01113 

EP2UM20MA 

01114 

BESSEL 

01115 

PSQMP 

01122 

PSQMPo 

01123 

THIRD 

01124 

SIXTH 

01125 

KENNEDY 

01126 

NUMDERIV 

01127 

FBESSEL 

01130 

SETINTAD 

01135 

INTERPOL 

01136 

ST0R1 

01205 

ST0R2 

01223 

REMAINDER 

01227 

CIVIL 

01233 

LINCOLN 

01235 

ST0R3 

01251 

ST0R4 

01265 

NOFLOl 

01271 

FIX1 

01272 

N0FL02 

01277 

F 1X2 

01300 

N0FL03 

01305 

FIX3 

01306 

MINUS 

01327 

PLUS 

01333 

SUM 

01336 

FLOTEST1 

01340 

B0THNEG1 

01352 

FL0TEST2 

01362 

0OThNEG2 

01374 

FL0TEST3 

01404 

B0THNEG3 

01416 

ROUND 

01426 

YRREMAIN 

01436 

WHOLEYEAR 

01437 

JULIANOAY 

01440 

IMPERIAL 

01441 

TAPEBLOCK 

01442 

RAAO 

01443 

RADIFAD 

01444 

DECAD 

01445 

OECUIFAD 

01446 

DISTAD 

01447 

DISTDIFAD 

01450 

TIME2 

01451 

SAFE 

01452 

aephem 

01453 

AREACNT 

02215 

LASTEPHEM 

03652 

EPHEMA 

03653 

EPHEMB 

03654 

EPHEMC 

03655 

EPHEMD 

03656 

101 


MKAB 

06732 

MKA0E 

06733 

MKABDT 

06734 

MKCA1DT 

06735 

MKC91 

06736 

MKCB1DT 

06737 

MKCC1 

06740 

MKCC1DT 

06741 

MKBP 

06742 

MKSINBP 

06743 

MKCOSBP 

06744 

MKLP 

06745 

MKS1NLP 

06746 

MKCOSLP 

06747 

MKCP 

06750 

MKSINCP 

06751 

MKCOSCP 

06752 

MKBPDT 

06753 

MKLPDT 

06754 

MKWX 

06755 

MKWY 

06756 

MKWA 

06757 

MKCA1 

06760 

MKCOSDDA 

06761 

MKSINDDA 

06762 

mkdeldel 

06763 

MKDELALF 

06764 

MKS 

06765 

mkdopi 

06766 

MKD0P2 

06767 

MKDUPPLER 

06770 

MKRTX2 

06771 

MKRTX 

06772 

MKDPX 

06773 

mkddtr 

06774 

MKS2 

06775 

MKXD 

06776 

MK42 

06777 

MKT1 

07000 

MKT2 

07001 

MKT3 

07002 

MKT4 

07003 

MKT7 

07004 

MKT8 

07005 

MKT9 

07006 

MKT10 

07007 

MKT11 

07010 

MKT12 

07011 

MKTS 

07012 

MKT6 

07013 

MKT13 

07014 

MKT14 

07015 

MKT15 

07016 

MKT16 

07017 

MKT  17 

07020 

MKT18 

07021 

MKDELAYCNT 

07022 

MKMES02 

07023 

MKMESI2 

07027 

MKMES03 

07033 

MKMESI3 

07037 

MKMES04 

07043 

MKMESI4 

07047 

MKMLSOS 

07053 

MKMESI5 

07057 

YSLIMIT 

07061 

MKMESOO 

07063 

mkmesio 

07071 

MKMES01 

07073 

MKMt.SH 

07111 

MKSWITCH 

07115 

MKMES06 

07116 

MKMESI6 

07122 

MKMES07 

07126 

MKMESI7 

07132 

YOLXMIT 

07134 

MKMES08 

07136 

MKMESI8 

07143 

MKMES09 

07147 

MKMESI9 

07154 

EPHP 

07160 

M0D2PI 

07161 

MKQK1 

07162 

MKQRSDT 

07163 

MKQI 

07164 

MKQSP 

07165 

MKQISIN 

07166 

MKQICOS 

07167 

ephday 

07170 

EPHRST 

07171 

EPHRSTDT 

07237 

EPHI 

07305 

EPHSP 

07353 

A$*S*illll 

07421 

ASSSSSl 112 

07422 

A$$S$$1H3 

07423 

A*$4SS1H4 

07424 

ID1CELC0R 

63000 

ID2CELC0R 

63001 

RA 

63002 

DEC 

63003 

SRA 

63004 

SDEC 

63005 

RADIUS 

63006 

RAOOT 

63007 

DtCDOT 

63010 

RADIUSDOT 

63011 

SIDERTIME 

63012 

vizkai 

63013 

VIZDEC1 

63014 

VIZRA2 

63015 

VIZUEC2 

63016 

TWOSECDOP 

63017 

PLOTAZIMSS 

63020 

PLOTELEVSS 

63021 

AZTRACKERR 

63022 

ELTRACKERR 

63023 

MODES* ITCH 

63024 

AUTOSWITCH 

63025 

TRACKINDIC 

63026 

AZIMERRORS 

63027 

ELEVERRORS 

63030 

REFRACCORS 

63031 

I01RADC0R 

63050 

ID2RADC0R 

63051 

RANGE 

63052 

AZIM 

63053 

ELEV 

63054 

SAZIM 

63055 

SELEV 

63056 

CRANGE 

63057 

CAZIM 

63060 

CELEV 

63061 

RANGEDOT 

63062 

TRUERANGE 

63063 

SINORIENT 

63064 

cosorient 

63065 

SINAZEL 

63066 

COSAZEL 

63070 

ACQAZIM 

63071 

ACQELEV 

63075 

FRAMESIZE 

63101 

radiometer 

63102 

TIMEMODE 

63103 

firstelev 

63104 

ASTRORA 

63105 

ASTRODEC 

63106 

TIMECORR 

63107 

KYBRDLEVEL 

63110 

TTYSTATUS 

63111 

RECORDSIZE 

63112 

CELBODY 

63113 

AZOIFS 

63120 

ELDIFS 

63121 

RDIFS 

63122 

ROOTDIFS 

63123 

SLAVEOPTS 

63124 

SLAVEMODES 

63125 

SLAVE 

63126 

LINECOUNTS 

63127 

I01TIME 

63130 

ID2TIME 

63131 

TRUETIME 

63132 

CELTIME 

63133 

sceltime 

63134 

CONVERTIME 

63135 

sradtime 

63136 

HOURMINUTE 

63137 

SECONDS 

63140 

DSECONOS 

63141 

ACTUALTIME 

63142 

ESTSHIFTED 

63143 

GMTSHIFTED 

63144 

GMTM0DU24 

63145 

BLASTOFF 

63146 

yearmonth 

63147 

DAY 

63150 

102 


HOUkRLG 

63X51 

MINREG 

63152 

FIRSTHRU 

63153 

DUMSECTTG 

63154 

RECRDSVfTCH 

63155 

RELEASESW 

63156 

kadindic 

63157 

PRINRECSW 

63160 

REFRACINDS 

63161 

azelinds 

63162 

DOPSWITCHS 

63163 

DOPPL 

63164 

DOPPLERS 

63165 

DOPFREQS 

63166 

DOPFACTORS 

63167 

M00ND0P2S 

63170 

HIRESDOPS 

63171 

DAYREGS 

63172 

ID1RECRD 

63210 

ID2RECRD 

63211 

RECFILE  „ 

63212 

ID1SYSPAR 

63310 

ID2SYSPAR 

63311 

RADARMODE 

63312 

systati 

63313 

SYSTAT2 

63314 

SYSTATD 

63315 

deltatee 

63316 

FREQUENCY 

63317 

LONGITUDE 

63320 

GEOUETLAT 

63321 

geocenlat 

63322 

equator 

63323 

POLL 

63324 

AZIMOVER 

63325 

HEIGHT 

63326 

YRTRAN 

63327 

ZRTRAN 

63330 

SKIP 

63331 

MSFREQ 

63332 

WFFREG 

63333 

MAINSWITCH 

63334 

VELOFLIGHT 

63335 

lsperau 

63336 

FLATTENING 

63337 

NMPERAU 

63340 

AUPEREQUAT 

63341 

KMPERNM 

63342 

MOONSWS 

63343 

KYBRDSPEC1 

63344 

KYBRDSPEC2 

63345 

KYBRDSPEC3 

63346 

KYBRDSPEC4 

63347 

EXPNAME 

63350 

ID1LNTPNT 

63410 

ID2ENPNT 

63411 

MCPGM 

63412 

inter 

63413 

COCON 

63414 

RECRD 

63415 

ADSCN 

63416 

AESCN 

63417 

CORCT 

63420 

UYDMP 

63421 

CHCOR 

63422 

PRLOG 

63423 

CELCOMPGM 

63424 

DATANALYZE 

63425 

INTERCOM 

63426 

ACQUI 

63427 

rdmtr 

63430 

CHPAR 

63431 

WFORD 

63432 

RDXXX 

63433 

PLANP 

63434 

timlp 

63435 

PLOTP 

63436 

AUTOT 

63437 

ID1RADI0 

63440 

ID2RADI0 

63441 

AZIMADD 

63442 

elevadd 

63443 

DOPPADD 

63444 

RANGEADD 

63445 

INAZIMADD 

63446 

inelevadd 

63447 

WFADD 

63450 

MILLSTNADD 

63451 

SYSC0MREG1 

63452 

SYSC0MREG2 

63453 

SYSC0MREG3 

63454 

SYSC0MREG4 

63455 

SYSC0MREG5 

63456 

SYSC0hREG6 

63457 

INTRELCKSW 

63460 

PREVIOUSTM 

63461 

BODYSIZE 

63462 

AZELBXSCAN 

63500 

AZMTHSCAN 

63501 

elvtnscan 

63502 

RADCBXSCAN 

63503 

RASCTNSCAN 

63504 

DtCLlNSCAN 

63505 

alngarcscn 

63506 

AEBOXLINES 

63507 

RDBOXLINES 

63510 

HOLDNOHOLD 

63511 

AZIMOFFSET 

63512 

ELEVOFFSLT 

63513 

RAOFFSET 

63514 

DECOFFSET 

63515 

CRSSOFFSET 

63516 

ALNGOFFSET 

63517 

TIMETOHOLD 

63520 

periodelev 

63521 

arcofelev 

63522 

PERIODAZIM 

63523 

ARCOFAZIM 

63524 

PERIODDEC 

63525 

ARCOFDEC 

63526 

PERI  ODRA 

63527 

ARCOFRA 

63530 

RADECOTIME 

63531 

AZELOTIME 

63532 

DRIFTSCANS 

63533 

DRIFTAZIMS 

63534 

DRIFTELEVS 

63535 

RADIORA 

63540 

RADIODEC 

63541 

SYNCTIMING 

63542 

syncainbcw 

63543 

SYNCEINBCW 

63544 

SYNCAZBCWS 

63545 

SYNCELBCWS 

63546 

ID3RADI0 

63776 

ID4RADI0 

63777 

AZIMOUT 

64000 

ID5RADI0 

64776 

ID6RADI0 

64777 

ELEVOUT 

65000 

ID7RADI0 

65776 

ID8RADI0 

65777 

DOPPOUT 

66000 

ID9RADI 0 

66776 

ID10RADI0 

66777 

RECAZIM 

67000 

ID11RADI 0 

67776 

ID12RADI0 

67777 

RECELEV 

70000 

ID13R ADI  0 

70775 

ID14RAUI0 

70776 

RANGEOUT 

70777 

MCPFILLER 

71000 

IDlbRAOlO 

71776 

ID16RADI0 

71777 

INTERAZIM 

72000 

ID17RA010 

72776 

ID18RADI0 

72777 

INTERELEV 

73000 

ID19RADI0 

73776 

ID20RADI0 

73777 

INTERDOPP 

74000 

ID21RADI0 

74776 

ID22RADI 0 

74777 

AZIMIN 

75000 

ID23RADI0 

75776 

ID24RADI0 

75777 

ELEVIN 

76000 

ID25RADI0 

76775 

ID26RADI0 

76776 

INTERRANGE 

76777 

idisysent 

77576 

ID2SYSENT 

77577 

SYSENTRIES 

77600 

idisysnam 

77676 

ID2SYSNAM 

77677 

SYSNAMES 

77700 

REFERENCES 


1.  D.  M.  Hafford,  "Haystack  Pointing  System:  Ephemeris  Tape 
Program,"  M.I.T.  Lincoln  Laboratory  Group  Report  1964-41. 

(25  September  1964). 

2.  Explanatory  Supplement  to  the  Astronomical  Ephemeris  and  the  American 
Ephemeris  and  Nautical  Almanac  (Her  Majesty's  Stationery  Office, 
London,  1961) . 

3.  R.  Butler  and  E.  Keer,  An  Introduction  to  Numerical  Methods  (Sir 
Isaac  Pitman  and  Sons,  Ltd. ,  London) 

4.  N.  M.  Brenner  and  P.  P.  Crowther,  "Haystack  Pointing  System:  Doppler 
Steering,"  M.I.T.  Lincoln  Laboratory  Technical  Note  1969  -  22. 

(in  preparation) 

5.  B.  M.  Middlehurst  and  G.  P.  Kniper,  The  Moon,  Meteorites ,  and  Comets 
(Vol.  IV  of  The  Solar  System)  (U.  of  Chicago  Press,  Chicago,  1963) • 


i 


103 


UNCLASSIFIED 
Security  Classification 


DOCUMENT  CONTROL  DATA  -  R&D 


(Security  classification  of  title,  body  of  abstract  and  indexing  annotation  must  be  entered  when  the  overall  report  is  classified) 


1.  ORIGINATING  ACTIVITY  (Corporate  author) 

Lincoln  Laboratory,  M.I.T. 


2a.  REPORT  SECURITY  CLASSIFICATION 

Unclassified 

2b.  GROUP 

None 


3.  REPORT  TITLE 


Haystack  Pointing  System:  Moon  with  Offsets 


4.  DESCRIPTIVE  NOTES  (Type  of  report  and  inclusive  dates) 

Technical  Note 

3.  AUTHOR(S)  (Last  name,  first  name,  initial) 


Frachtman,  Henry  E. 


Crowther,  Patricia  P.,  Editor 


8.  REPORT  DATE 

28  March  1969 


TOTAL  NO.  OF  PAGES 
110 


7b.  NO.  OF  REFS 

5 


8a.  CONTRACT  OR  GRANT  NO. 

AF  19  (628)-5l67 

b.  PROJECT  NO. 

649L 


d. 


9a.  ORIGINATOR'S  REPORT  NUMBER(S) 

Technical  Note  1969-21 


9b.  OTHER  REPORT  NO(S)  (Any  other  numbers  that  may  be 
assigned  this  report) 

ESD-TR-69-66 


10.  AVAILABILITY/LIMITATION  NOTICES 


This  document  has  been  approved  for  public  release  and  sale;  its  distribution  is  unlimited. 


1 1. 


SUPPLEMENTARY  NOTES 


12.  SPONSORING  MILITARY  ACTIVITY 


None 


Air  Force  Systems  Command,  USAF 


13.  ABSTRACT 


This  report  describes  the  procedure  used  by  the  Haystack 
pointing  computer  program  for  obtaining  the  celestial  coordinates 
of  any  point  on  the  Moon  at  any  time. 


14.  KEY  WORDS 

celestial  computations  Univac-490 

CDC-3300  Doppler  shift 

ephemeris 


Haystack  computer 
MOONTRACK 
Bessel  functions 


104 


UNCLASSIFIED 


Security  Classification 


i 


4 


Printed  by 

United  States  Air  Force 
L.  G.  Hanscom  Field 
Bedford ,  Massachusetts 


